WWW::Mechanize がどんなリクエストを送っているのか、をログに出力してデバッグに使いたいという話。 Class::Method::Modifiers を使って、LWP::UserAgent::send_request を hook してあげるとうまくいった。(WWW::Mechanize は LWP::UserAgent の子クラス) use strict; use WWW::Mechanize; use Class::Method::Modifiers; use Data::Dumper; use utf8; $Data::Dumper::Indent = 1; before "LWP::UserAgent::send_request" => sub { print Dumper $_[1]; }; my $mech = WWW::Mechanize->new; $mech-