diff options
-rw-r--r-- | scripts/lib/metacpan.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/scripts/lib/metacpan.pm b/scripts/lib/metacpan.pm index cad98a74b..73a41158e 100644 --- a/scripts/lib/metacpan.pm +++ b/scripts/lib/metacpan.pm @@ -33,8 +33,14 @@ sub mcpan { } if ( defined $ENV{WWW_MECH_DEBUG} ) { $mech->add_handler("request_send", sub { warn shift->dump ; return }); - $mech->add_handler("response_done", sub { warn shift->dump ; return }); - + $mech->add_handler("response_done", sub { + if( $ENV{WWW_MECH_DEBUG} > 1 ){ + warn shift->content; + } else { + warn shift->dump; + } + return; + }); } require HTTP::Tiny::Mech; my $tinymech = HTTP::Tiny::Mech->new( mechua => $mech ); |