| Server IP : 162.0.232.140 / Your IP : 3.23.92.44 Web Server : LiteSpeed System : Linux premium139.web-hosting.com 4.18.0-513.24.1.lve.2.el8.x86_64 #1 SMP Fri May 24 12:42:50 UTC 2024 x86_64 User : micrcvoy ( 740) PHP Version : 8.1.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/proc/thread-self/root/usr/share/perl5/vendor_perl/LWP/Debug/ |
Upload File : |
package LWP::Debug::TraceHTTP;
# 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';
our $VERSION = '6.34';
package # hide from PAUSE
LWP::Debug::TraceHTTP::Socket;
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;