File Coverage

blib/lib/Footprintless/Resource/Url.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	23	100.0

use strict;
use warnings;

package Footprintless::Resource::Url;
$Footprintless::Resource::Url::VERSION = '1.28';
# ABSTRACT: A resource described by URL
# PODNAME: Footprintless::Resource::Url

use parent qw(Footprintless::Resource);

sub get_uri {
    return $_[0]->{uri};
}

sub _init {
    my ( $self, $url ) = @_;

    $self->{uri} = URI->new($url);
    $self->{uri} = $self->{uri}->abs('file://')
        unless ( $self->{uri}->has_recognized_scheme() );

    $self->Footprintless::Resource::_init( $self->{uri}->as_string() );

    return $self;
}

1;

__END__