diff options
| author |   Kent Fredric <kentfredric@gmail.com> | 2012-02-15 23:51:11 +1300 |
|---|---|---|
| committer | Kent Fredric <kentfredric@gmail.com> | 2012-02-15 23:51:11 +1300 |
| commit | 81e2cf373203f05cea8a975ad3c3436a09ca47b0 (patch) | |
| tree | af08312b9a3a3eca60fe77adc8adb5f5eaefdd15 | |
| parent | [migrate] Data-Float to x.y.z (diff) | |
| download | perl-overlay-81e2cf373203f05cea8a975ad3c3436a09ca47b0.tar.gz perl-overlay-81e2cf373203f05cea8a975ad3c3436a09ca47b0.tar.bz2 perl-overlay-81e2cf373203f05cea8a975ad3c3436a09ca47b0.zip | |
[scripts] Add a debug level to the WWW_MECH_DEBUG handler to show full response content
| -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 ); |