From ee4d87281ff498b5491e5ab06684379198ace86b Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Fri, 17 Jul 2009 17:17:54 +0200
Subject: up

---
 lib/MooseX/UserAgent.pm | 21 +--------------------
 1 file changed, 1 insertion(+), 20 deletions(-)

(limited to 'lib/MooseX/UserAgent.pm')

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__
-- 
cgit v1.2.3