NAME
LWPx::TimedHTTP - time the different stages of an HTTP request
SYNOPSIS
# do the work for you
use LWP::UserAgent;
use LWPx::TimedHTTP qw(:autoinstall);
# now just continue as normal
my $ua = new LWP::UserAgent;
my $response = $ua->get("http://thegestalt.org");
# ... with optional retrieving of metrics (in seconds)
printf "%f\n", $response->header('Client-Request-Connect-Time');
# or if you don't like magic going on in the background
use LWP::UserAgent;
use LWP::Protocol;
use LWPx::TimedHTTP;
LWP::Protocol::implementor('http', 'LWPx::TimedHTTP');
# or for https ....
LWP::Protocol::implementor('https', 'LWPx::TimedHTTP::https');
my $ua = new LWP::UserAgent;
my $response = $ua->get("http://thegestalt.org");
printf "%f\n", $response->header('Client-Request-Connect-Time'); DESCRIPTION
This module performs an HTTP request exactly the same as LWP does normally except for the fact that it times each stage of the request and then inserts the results as header.
It's useful for debugging where abouts in a connection slow downs are occuring.
METRICS
All times returned are in seconds
Client-Request-Connect-Time
The time it took to connect to the remote server
Client-Request-Transmit-Time
The time it took to transmit the request
Client-Response-Server-Time
Time it took to respond to the request
Client-Response-Receive-Time
Time it took to get the data back
AUTHOR
Simon Wistow <simon@thegestalt.org>
Based entirely on work by David Carter - this module is a little light frobbing and some packaging of code he posted to the libwww-perl mailing list in response to one of my questions.
His code was, in turn, based on LWP::Protocol::http by Gisle Aas which is distributed as part of the libwww package.
COPYING
(c)opyright 2002, Simon Wistow
Distributed under the same terms as Perl itself.
This software is under no warranty and will probably ruin your life, kill your friends, burn your house and bring about the apocalypse
BUGS
None known