summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/MooseX/UserAgent.pm2
-rw-r--r--lib/MooseX/UserAgent/Config.pm3
2 files changed, 4 insertions, 1 deletions
diff --git a/lib/MooseX/UserAgent.pm b/lib/MooseX/UserAgent.pm
index 2e1b2f2..bc72821 100644
--- a/lib/MooseX/UserAgent.pm
+++ b/lib/MooseX/UserAgent.pm
@@ -14,6 +14,8 @@ with qw/
MooseX::UserAgent::Cache
/;
+has _LWPLIB => ( isa => 'Str', is => 'ro', default => 'LWP::UserAgent' );
+
sub fetch {
my ( $self, $url ) = @_;
diff --git a/lib/MooseX/UserAgent/Config.pm b/lib/MooseX/UserAgent/Config.pm
index 0b9beb4..cf453b0 100644
--- a/lib/MooseX/UserAgent/Config.pm
+++ b/lib/MooseX/UserAgent/Config.pm
@@ -8,9 +8,10 @@ has 'agent' => (
lazy => 1,
default => sub {
my $self = shift;
- my $ua = LWP::UserAgent->new;
+ my $ua = $self->_LWPLIB->new;
if (!$self->can('useragent_conf')) {
+ # TODO
}
my $conf = $self->useragent_conf;
$ua->agent( $conf->{name} ) if $conf->{name};