File Coverage

blib/lib/URI/Unredirect.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	31	36	86.1

package URI::Unredirect;

use strict;
use warnings;

use URI ();
use URI::Escape ();

our $VERSION = '0.01';
$VERSION = eval $VERSION;

sub URI::unredirect {
    my ($uri) = @_;

    my $str = $uri->as_string;

    my $http_idx = rindex $str, 'http';
    return $uri unless $http_idx > 0;

    $str = substr $str, $http_idx;

    my $amp_idx = index $str, '&';
    if ($amp_idx > 0) {
        $str = substr $str, 0, $amp_idx;
    }

    $str = URI::Escape::uri_unescape($str);

    if ($str =~ m{( https?://\S* [^.,;'">\s\)\]] )}x) {
        return URI->new($1);
    }

    return $uri;
}


1;

__END__