From 53ba713cfba75c55d315710bbd1f4f9828a827f0 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 23 Jul 2009 14:35:42 +0200
Subject: add timeout, and headers

---
 lib/MooseX/UserAgent/Async.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/MooseX/UserAgent/Async.pm b/lib/MooseX/UserAgent/Async.pm
index 8d68384..7cd39b1 100644
--- a/lib/MooseX/UserAgent/Async.pm
+++ b/lib/MooseX/UserAgent/Async.pm
@@ -17,10 +17,15 @@ sub fetch {
     my $request_headers = { 'Accept-Encoding' => 'gzip', };
     $request_headers->{'If-Modified-Since'} = $last_modified
         if $last_modified;
+    $request_headers->{'Content-Length'} = $self->useragent_conf->{max_size}
+        if $self->useragent_conf->{max_size};
+    $request_headers->{'From'} = $self->useragent_conf->{mail}
+        if $self->useragent_conf->{mail};
 
     http_request
         GET     => $url,
         headers => $request_headers,
+        timeout => $self->useragent_conf->{timeout},
         sub {
         my ( $data, $headers ) = @_;
         my $response = HTTP::Response->new;
-- 
cgit 1.4.1