File Coverage

lib/Template/Plugin/URI.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	30	100.0

package Template::Plugin::URI;

use strict;
use warnings;

our $VERSION = '0.02';

use URI;

use parent qw(Template::Plugin);

sub new {
    my (undef, undef, @args) = @_;

    my %args = (ref($args[-1]) eq 'HASH') ? %{$args[-1]} : ();
    my $uri  = undef;

    if ($args{new_abs}) {
        $uri = URI->new_abs(@args);
    }
    else {
        $uri = URI->new(@args);
    }

    return $uri;
}

1;

__END__