in reply to Re^3: Understanding oAuth with Perl
in thread Understanding oAuth with Perl
I think you definitely need to check the content, maybe as per LWP::Debug?
$app->{browser}->add_handler("response_done", sub { shift->dump; retur +n });
Or maybe with
and then you can->SUPER::new( tokens => \%tokens, browser => WWW::Mechanize->new( autocheck => 0 ), )
or something like thatmy $response = eval { $app->view_restricted_resource ... }; unless( $response ){ warn "ERROR $@ "; $response = $app->res; # WWW::Mechanize cache it for you } print $response->content;
|
|---|