Help for this page

Select Code to Download


  1. or download this
    use LWP::Debug qw(+);
use Time::HiRes qw(gettimeofday tv_interval);
...
wrap 'LWP::Protocol::http::SocketMethods::sysread',
    pre => sub { $ts = [gettimeofday]  },
    post => sub { printf ">>%.5f\n" , tv_interval($ts)   };
  2. or download this
    use LWP::Debug qw(+);
use Aspect;
my $pcut = call qr/LWP::Protocol::http::SocketMethods::sysread/;
before { $ts = [gettimeofday] } $pcut;
after { printf ">>%.5f\n" , tv_interval($ts) } $pcut;
  3. or download this
    LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
...
>>0.00005
LWP::Protocol::collect: read 997 bytes
LWP::UserAgent::request: Simple response: OK