diff options
| author | franck cuny <franck@lumberjaph.net> | 2009-07-17 17:17:54 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2009-07-17 17:17:54 +0200 |
| commit | ee4d87281ff498b5491e5ab06684379198ace86b (patch) | |
| tree | e3503989bd7fc4eb8cf7669e6691c921f03a7448 /lib/MooseX/UserAgent.pm | |
| parent | update (c) (diff) | |
| download | moosex-useragent-ee4d87281ff498b5491e5ab06684379198ace86b.tar.gz | |
up
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/UserAgent.pm | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/lib/MooseX/UserAgent.pm b/lib/MooseX/UserAgent.pm index 58ee83f..cc589bc 100644 --- a/lib/MooseX/UserAgent.pm +++ b/lib/MooseX/UserAgent.pm @@ -2,35 +2,16 @@ package MooseX::UserAgent; our $VERSION = '0.2.0'; -use URI; -use HTTP::Request; -use HTTP::Response; -use LWP::UserAgent; - use Moose::Role; with qw/ MooseX::UserAgent::Config MooseX::UserAgent::Content MooseX::UserAgent::Cache + MooseX::UserAgent::Generic /; has _LWPLIB => ( isa => 'Str', is => 'ro', default => 'LWP::UserAgent' ); -sub fetch { - my ( $self, $url ) = @_; - - my $req = HTTP::Request->new( GET => URI->new($url) ); - - $req->header( 'Accept-Encoding', 'gzip' ); - my $last_modified = $self->get_ua_cache($url); - $req->header( 'If-Modified-Since' => $last_modified ) - if $last_modified; - - my $res = $self->agent->request($req); - $self->store_ua_cache( $url, $res ); - $res; -} - 1; __END__ |
