POD, add useragent string to async, tests

1 files changed, 9 insertions, 4 deletions

diff --git a/lib/MooseX/UserAgent/Async.pm b/lib/MooseX/UserAgent/Async.pm
index 186a183..666e804 100644
--- a/lib/MooseX/UserAgent/Async.pm
+++ b/lib/MooseX/UserAgent/Async.pm
@@ -11,23 +11,28 @@ sub fetch {
     my ( $self, $url ) = @_;
     my $status = AnyEvent->condvar;
 
+    $AnyEvent::HTTP::USERAGENT = $self->useragent_conf->{name};
+
     my $last_modified = $self->get_ua_cache($url);
 
     my $request_headers = { 'Accept-Encoding' => 'gzip', };
     $request_headers->{'If-Modified-Since'} = $last_modified
         if $last_modified;
 
-    http_request GET => $url, headers => $request_headers, sub {
+    http_request
+        GET     => $url,
+        headers => $request_headers,
+        sub {
         my ( $data, $headers ) = @_;
         my $response = HTTP::Response->new;
         $response->content($data);
-        $response->code(delete $headers->{Status});
+        $response->code( delete $headers->{Status} );
         foreach my $header ( keys %$headers ) {
             $response->header( $header => $headers->{$header} );
         }
-        $self->store_ua_cache($url, $response);
+        $self->store_ua_cache( $url, $response );
         $status->send($response);
-    };
+        };
     return $status->recv;
 }