File Coverage

blib/lib/Footprintless/Resource.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1 4     4   1532 use strict;
  4         10  
  4         118  
2 4     4   17 use warnings;
  4         7  
  4         516  
3              
4             package Footprintless::Resource;
5             $Footprintless::Resource::VERSION = '1.29';
6             # ABSTRACT: A resource provided by a provider
7             # PODNAME: Footprintless::Resource
8              
9             sub new {
10 22     22 1 156 return bless( {}, shift )->_init(@_);
11             }
12              
13             sub _init {
14 22     22   269 my ( $self, $url ) = @_;
15              
16 22         61 $self->{url} = $url;
17              
18 22         48 return $self;
19             }
20              
21             sub get_url {
22 10     10 1 76 return $_[0]->{url};
23             }
24              
25             1;
26              
27             __END__