6c6
< our $VERSION = '0.03';
---
> our $VERSION = '0.04';
87,90c87,91
<          slots: 20
<        timeout: 180 (seconds)
<  max_redirects: 7
<  poll_interval: 0.05 (seconds)
---
>            slots: 20
>          timeout: 180 (seconds)
>  connect_timeout: 30 (seconds)
>    max_redirects: 7
>    poll_interval: 0.05 (seconds)
105,108c106,110
<         slots         => 20,
<         max_redirects => 7,
<         timeout       => 180,
<         poll_interval => 0.05,
---
>         slots            => 20,
>         max_redirects    => 7,
>         timeout          => 180,
>         connect_timeout  => 30,
>         poll_interval    => 0.05,
122c124
< =head2 slots, timeout, poll_interval and max_redirects
---
> =head2 slots, timeout, connect_timeout, poll_interval and max_redirects
127c129
< Get/setters for the C<$async> objects config settings. Timeout is in seconds
---
> Get/setters for the C<$async> objects config settings. Timeouts are in seconds
145a148,153
> sub connect_timeout {
>     my $self = shift;
>     $$self{connect_timeout} = shift if @_;
>     return $$self{connect_timeout};
> }
> 
538,539c546,553
<     my $s =
<       eval { Net::HTTP::NB->new(%$arguments) };
---
> 
>     my $s;
>     eval { 
>       local $SIG{ALRM} = sub { die "Connect timeout\n" }; # NB: \n required
>       alarm($self->connect_timeout());
>       $s=Net::HTTP::NB->new(%$arguments);
>       alarm(0);
>     };
543,544c557
<     if ( !$s ) {
< 
---
>     if (!$s) {