diff options
author | franck cuny <franck@lumberjaph.net> | 2009-06-25 11:01:13 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-06-25 11:01:13 +0200 |
commit | 9731c038acf73a68352fc622cf742b5940a517ef (patch) | |
tree | ba6a0b2b53bbf84e0722444f0a68fdcba17ebfdc /lib/MooseX/UserAgent/Config.pm | |
parent | basic useragent (diff) | |
download | moosex-useragent-9731c038acf73a68352fc622cf742b5940a517ef.tar.gz |
add dep
Diffstat (limited to 'lib/MooseX/UserAgent/Config.pm')
-rw-r--r-- | lib/MooseX/UserAgent/Config.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/MooseX/UserAgent/Config.pm b/lib/MooseX/UserAgent/Config.pm new file mode 100644 index 0000000..b468e4c --- /dev/null +++ b/lib/MooseX/UserAgent/Config.pm @@ -0,0 +1,22 @@ +package MooseX::UserAgent::Config; + +use Moose::Role; + +has 'agent' => ( + isa => 'Object', + is => 'rw', + lazy => 1, + default => sub { + my $self = shift; + my $ua = LWP::UserAgent->new; + + my $conf = $self->useragent_conf; + $ua->agent( $conf->{name} ) if $conf->{name}; + $ua->from( $conf->{mail} ) if $conf->{mail}; + $ua->max_size( $conf->{max_size} || 3000000 ); + $ua->timeout( $conf->{timeout} || 30 ); + $ua; + } +); + +1; |