SYNOPSIS

     use LWP::UserAgent::Patch::LogRequestContent;
    
     # now all your LWP HTTP request content are logged

    Sample script and output:

     % TRACE=1 perl -MLog::Any::App
       -MNet::HTTP::Methods::Patch::LogRequest \
       -MLWP::UserAgent::Patch::LogRequestContent \
       -MLWP::UserAgent \
       -e'$ua = LWP::UserAgent->new;
          $ua->post("http://localhost:5000/", {a=>1, b=>2});'
    
     [cat LWP.UserAgent.Patch.LogRequestContent]HTTP request body (len=7):
     a=1&b=2
    
     [cat Net.HTTP.Methods.Patch.LogRequest]HTTP request (proto=http, len=186):
     POST / HTTP/1.1
     TE: deflate,gzip;q=0.3
     Connection: TE, close
     Host: localhost:5000
     User-Agent: libwww-perl/6.04
     Content-Length: 7
     Content-Type: application/x-www-form-urlencoded

    Or you can also use via Log::Any::For::LWP.

DESCRIPTION

    This module patches LWP::UserAgent (which is used by LWP::Simple,
    WWW::Mechanize, among others) so that HTTP request contents are logged
    using Log::Any.

FAQ

 Why not subclass?

    By patching, you do not need to replace all the client code which uses
    LWP (or WWW::Mechanize, etc).

 Why is the request content logged before request headers (when using with
 Net::HTTP::Methods::Patch::LogRequest)?

    Yup, it's ugly. I'm working on that.

SEE ALSO

    Use Net::HTTP::Methods::Patch::LogRequest to log raw HTTP request
    headers being sent to servers.

    Use LWP::UserAgent::Patch::LogResponse to log HTTP responses.

    Log::Any::For::LWP bundles all three mentioned patches in a single
    convenient package.