AnyEvent-Net-Curl-Queued

 view release on metacpan or  search on metacpan

inc/Test/HTTP/AnyEvent/Server.pm  view on Meta::CPAN

    *   Trying 127.0.0.1...
    * connected
    * Connected to 127.0.0.1 (127.0.0.1) port 44721 (#0)
    > POST /echo/body HTTP/1.1
    > User-Agent: curl/7.27.0
    > Host: 127.0.0.1:44721
    > Accept: */*
    > Content-Length: 27
    > Content-Type: application/x-www-form-urlencoded
    >
    * upload completely sent off: 27 out of 27 bytes
    * HTTP 1.0, assume close after body
    < HTTP/1.0 200 OK
    < Connection: close
    < Date: Mon, 15 Oct 2012 19:19:50 GMT
    < Server: Test::HTTP::AnyEvent::Server/0.003 AnyEvent/7.02 Perl/5.016001 (linux)
    < Content-Type: text/plain
    <
    * Closing connection #0
    param1=value1&param2=value2

lib/AnyEvent/Net/Curl/Queued/Stats.pm  view on Meta::CPAN

        appconnect_time     => 0,
        connect_time        => 0,
        header_size         => 0,
        namelookup_time     => 0,
        num_connects        => 0,
        pretransfer_time    => 0,
        redirect_count      => 0,
        redirect_time       => 0,
        request_size        => 0,
        size_download       => 0,
        size_upload         => 0,
        starttransfer_time  => 0,
        total_time          => 0,
    } },
);


sub sum {
    my ($self, $from) = @_;

    my $is_stats = (__PACKAGE__ eq ref $from) ? 1 : 0;

lib/AnyEvent/Net/Curl/Queued/Stats.pm  view on Meta::CPAN

    appconnect_time
    connect_time
    header_size
    namelookup_time
    num_connects
    pretransfer_time
    redirect_count
    redirect_time
    request_size
    size_download
    size_upload
    starttransfer_time
    total_time

Variable names are from respective L<curl_easy_getinfo()|http://curl.haxx.se/libcurl/c/curl_easy_getinfo.html> accessors.

=head1 METHODS

=head2 sum($from)

Aggregate attributes from the C<$from> object.

t/10-stats.t  view on Meta::CPAN

    appconnect_time     => 0,
    connect_time        => 0.000518,
    header_size         => 285,
    namelookup_time     => 0.000427,
    num_connects        => 1,
    pretransfer_time    => 0.000527,
    redirect_count      => 0,
    redirect_time       => 0,
    request_size        => 189,
    size_download       => 5079,
    size_upload         => 0,
    starttransfer_time  => 0.001488,
    total_time          => 0.001751,
};

my $stats = AnyEvent::Net::Curl::Queued::Stats->new(stats => { %{$obj} });

isa_ok($stats, 'AnyEvent::Net::Curl::Queued::Stats');
can_ok($stats, qw(stamp stats sum));

my $n = 10;