ウェブサービス等のAPI とやり取りするモジュールを使って開発している際、デバッグのためAPI からのレスポンスをのぞき見たいときがあると思います(自分はさっきありました)。 そんなとき、関数をラップすると便利です。 型グロブ my $orig_request = LWP::UserAgent->can('request'); *LWP::UserAgent::request = sub { use Data::Dumper; my $response = $orig_request->(@_); print Dumper($response); return $response; }; Hook::LexWrap use Hook::LexWrap; wrap 'LWP::UserAgent::request', post => sub { use Data::Dumper; my $r

