- SEE ALSO
LWPx::TimedHTTP - time the different stages of an HTTP request
# do the work for you use LWP::UserAgent; use LWPx::TimedHTTP qw(:autoinstall); # now just continue as normal my $ua = LWP::UserAgent->new; 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 = LWP::UserAgent->new; my $response = $ua->get("http://thegestalt.org"); printf "%f\n", $response->header('Client-Request-Connect-Time');
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.
All times returned are in seconds
The time it took to do a DNS lookup on the host.
NOTE: The value of this timing is NOT thread safe since it has to smuggle the data back via a global variable.
The time it took to connect to the remote server
The time it took to transmit the request
Time it took to respond to the request
Time it took to get the data back
Simon Wistow <firstname.lastname@example.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.
(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