package LWP::Debug::TraceHTTP;
$LWP::Debug::TraceHTTP::VERSION = '6.25';
# 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.25';
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;