diff options
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__ |