Changeset 16907

Timestamp:

07/31/08 12:53:04 (5 years ago)

Author:

daisuke

Message:

separate out request generation to another module

Location:

lang/perl/Atomik/trunk/lib/Atomik

Files:

• Client (added)
• Client.pm (modified) (4 diffs)
• Client/RequestFactory.pm (added)

lang/perl/Atomik/trunk/lib/Atomik/Client.pm

@@ -4 +4 @@
 use Moose;
 use Atomik;
+use Atomik::Client::RequestFactory;
 use Atomik::MediaType;
 use Atomik::Service;
@@ -17 +18 @@
     isa => 'Str'
 );
+
+has 'request_factory' => (
+    is => 'rw',
+    isa => 'Atomik::Client::RequestFactory',
+    default => sub { Atomik::Client::RequestFactory->new() },
+    handles => {
+        request_create => 'create'
+    }
+);
+    
 
 has 'user_agent' => (
@@ -41 +52 @@
     my $uri = $args{uri} || confess "no URI given to service()";
 
-    my $request = $self->create_request(%args);
-    my $response = $self->make_request( request => $request );
+    my $request = $self->request_create(%args);
+    my $response = $self->send_request( request => $request );
 
     DEBUG( $response->as_string );
@@ -74 +85 @@
 }
 
-sub create_request {
+sub send_request {
     my ($self, %args) = @_;
-
-    my $method = $args{method} || 'GET';
-    my $request =  HTTP::Request->new($method => $args{uri});
-
-    if (my $h = $args{headers}) {
-        $request->headers->header(%$h);
-    }
-    return $request;
-}
-
-sub make_request {
-    my ($self, %args) = @_;
-
     my $request = $args{request};
-    LWP::UserAgent->new()->request($request);
+    $self->user_agent->request($request);
 }