NAME
Log::Any::For::LWP - Add logging to LWP
VERSION
version 0.04
SYNOPSIS
use Log::Any::For::LWP
-log_request_header => 1, # optional, default 1
-log_request_body => 1, # optional, default 0
-log_response_header => 1, # optional, default 1
-log_response_body => 1, # optional, default 0
;
Sample script and output:
% TRACE=1 perl -MLog::Any::App -MLog::Any::For::LWP -MLWP::Simple \
-e'get "http://www.google.com/"'
[36] HTTP request (proto=http, len=134):
GET / HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE, close
Host: www.google.com
User-Agent: LWP::Simple/6.00 libwww-perl/6.04
[79] HTTP response header:
302 Moved Temporarily
Cache-Control: private
Connection: close
Date: Tue, 17 Jul 2012 04:39:10 GMT
...
[81] HTTP request (proto=http, len=136):
GET / HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE, close
Host: www.google.co.id
User-Agent: LWP::Simple/6.00 libwww-perl/6.04
[190] HTTP response header:
200 OK
Cache-Control: private, max-age=0
Connection: close
Date: Tue, 17 Jul 2012 04:39:10 GMT
...
DESCRIPTION
This module just bundles Net::HTTP::Methods::Patch::LogRequest, LWP::UserAgent::Patch::LogRequestContent, and LWP::UserAgent::Patch::LogResponse together.
Response body is dumped to a separate category. It is recommended that you dump this to a directory, for convenience. See the documentation of LWP::UserAgent::Patch::LogResponse for more details.
SEE ALSO
AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.