Initial class construction
This commit is contained in:
29
Git/usr/share/perl5/vendor_perl/LWP/Debug/TraceHTTP.pm
Normal file
29
Git/usr/share/perl5/vendor_perl/LWP/Debug/TraceHTTP.pm
Normal file
@ -0,0 +1,29 @@
|
||||
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.36';
|
||||
|
||||
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;
|
Reference in New Issue
Block a user