http://qs321.pair.com?node_id=11112715

knox has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks

Your wisdom is politely requested to set me on the right path. I am looking for a way to convert the code below to Plack. The snippet below requests a remote url that redirects, and then captures the new redirected URL. I have recently converted most of project over to Plack, but I am stuck on this bit. I will acknowledge that Plack::Request may not the solution here, and I still looking around cpan for other solutions.

Thank you for any guidance, also any code samples would also be really helpful!

$request = HTTP::Request->new(GET => $url); my $user_agent = LWP::UserAgent->new; my $response = $user_agent->request($request); if ( $response->is_success and $response->previous ) { ($scheme, $auth, $path, $query, $frag) = uri_split($respon +se->request->uri); }