LWP::LastURI - routine for getting last URI visited despite redirects
use LWP::LastURI; my $agent = new WWW::Mechanize; # not that LWP user agents such as WWW::Mechanize may do redirection that # will not be reflected in the return value of $agent->uri. # This module offers a way to see the final URI after redirection. ... do stuff that involves redirection my $redirected_final = LWP::LastURI::last_uri; my $redirected_final_post = LWP::LastURI::last_uri('POST'); my $redirected_final_get = LWP::LastURI::last_uri('GET');
If you want to see just what LWP is doing during a redirect, this program makes available a trace of sites visited. After a redirect, the site finally visited last can be retrived via a call to LWP::LastURI::last_uri. The optional argument can specify whether the latest 'GET' or 'POST' request is wanted. Otherwise, either a GET or POST uri is returned, whichever was latest.
This module works by using LWP::Debug to push all GET and POST requests onto a static array. There is only one stack of such requests for all of LWP's HTTP and/or HTTPS requests.
LWP::Debug
Copyright (c) 2005 William Herrera
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
William Herrera <wherrera@skylightview.com>
To install LWP::LastURI, copy and paste the appropriate command in to your terminal.
cpanm
cpanm LWP::LastURI
CPAN shell
perl -MCPAN -e shell install LWP::LastURI
For more information on module installation, please visit the detailed CPAN module installation guide.