lwp-dump --request option to dump the request as well

Author: gisle

bin/lwp-dump

@@ -14,6 +14,7 @@ GetOptions(\my %opt,
     'keep-client-headers',
     'method=s',
     'agent=s',
+    'request',
 ) || usage();
 
 my $url = shift || usage();
@@ -30,6 +31,7 @@ Recognized options are:
    --max-length <n>
    --method <str>
    --parse-head
+   --request
 
 EOT
 }
@@ -47,6 +49,11 @@ $res->remove_header(grep /^Client-/, $res->header_field_names)
     unless $opt{'keep-client-headers'} or
         ($res->header("Client-Warning") || "") eq "Internal response";
 
+if ($opt{request}) {
+    $res->request->dump;
+    print "\n";
+}
+
 $res->dump(maxlength => $opt{'max-length'});
 
 __END__
@@ -101,6 +108,10 @@ By default B<lwp-dump> will not try to initialize headers by looking at the
 head section of HTML documents.  This option enables this.  This corresponds to
 L<LWP::UserAgent/"parse_head">.
 
+=item B<--request>
+
+Also dump the request sent.
+
 =back
 
 =head1 SEE ALSO