/
usr
/
local
/
share
/
perl5
/
LWP
/
Debug
/
/usr/local/share/perl5/LWP/Debug
mkdir
upload
Name
Size
Mode
Actions
TraceHTTP.pm
643
0444
edit
dl
rm
Edit:
/usr/local/share/perl5/LWP/Debug/TraceHTTP.pm
(643B)
package LWP::Debug::TraceHTTP; $LWP::Debug::TraceHTTP::VERSION = '6.26'; # Just call: # # require LWP::Debug::TraceHTTP; # LWP::Protocol::implementor('http', 'LWP::Debug::TraceHTTP'); # # to use this module to trace all calls to the HTTP socket object in # programs that use LWP. use strict; use base 'LWP::Protocol::http'; package LWP::Debug::TraceHTTP::Socket; $LWP::Debug::TraceHTTP::Socket::VERSION = '6.26'; use Data::Dump 1.13; use Data::Dump::Trace qw(autowrap mcall); autowrap("LWP::Protocol::http::Socket" => "sock"); sub new { my $class = shift; return mcall("LWP::Protocol::http::Socket" => "new", undef, @_); } 1;
Save
cmd:
run