If you really just want to see what's going on with LWP and don't need ALL of the headers, use LWP::Debug
use strict; use warnings; use diagnostics; use LWP::Debug qw( + ); use WWW::Mechanize; my $a = WWW::Mechanize->new(); my $url = 'http://diveintomark.org/tests/client/http/307.xml'; $a->get( $url ); print length( $a->content );
Gives me:
LWP::UserAgent::new: () LWP::UserAgent::request: () HTTP::Cookies::add_cookie_header: Checking diveintomark.org for cookie +s HTTP::Cookies::add_cookie_header: Checking .org for cookies LWP::UserAgent::send_request: GET http://diveintomark.org/tests/client +/http/307.xml LWP::UserAgent::_need_proxy: Not proxied LWP::Protocol::http::request: () LWP::UserAgent::request: Simple response: Temporary Redirect LWP::UserAgent::request: () HTTP::Cookies::add_cookie_header: Checking diveintomark.org for cookie +s HTTP::Cookies::add_cookie_header: Checking .org for cookies LWP::UserAgent::send_request: GET http://diveintomark.org/tests/client +/http/307_redirect.xml LWP::UserAgent::_need_proxy: Not proxied LWP::Protocol::http::request: () LWP::Protocol::collect: read 1003 bytes LWP::UserAgent::request: Simple response: OK 1003
--
"To err is human, but to really foul things up you need a computer." --Paul Ehrlich
In reply to Re: Show WWW::Mechanize Headers
by LTjake
in thread Show WWW::Mechanize Headers
by Ovid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |