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   1306 use strict;
  4         10  
  4         104  
2 4     4   18 use warnings;
  4         6  
  4         461  
3              
4             package Footprintless::Resource;
5             $Footprintless::Resource::VERSION = '1.26';
6             # ABSTRACT: A resource provided by a provider
7             # PODNAME: Footprintless::Resource
8              
9             sub new {
10 22     22 1 120 return bless( {}, shift )->_init(@_);
11             }
12              
13             sub _init {
14 22     22   292 my ( $self, $url ) = @_;
15              
16 22         111 $self->{url} = $url;
17              
18 22         54 return $self;
19             }
20              
21             sub get_url {
22 10     10 1 62 return $_[0]->{url};
23             }
24              
25             1;
26              
27             __END__