1 files changed, 26 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/Debug/TraceHTTP.pm b/Master/tlpkg/tlperl/site/lib/LWP/Debug/TraceHTTP.pm
new file mode 100644
index 00000000000..4dc70a096f7
--- /dev/null
+++ b/Master/tlpkg/tlperl/site/lib/LWP/Debug/TraceHTTP.pm
@@ -0,0 +1,26 @@
+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;