File Coverage

blib/lib/Config/Layered/Source.pm
Criterion Covered Total %
statement 11 13 84.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 4 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package Config::Layered::Source;
2 3     3   19 use warnings;
  3         5  
  3         100  
3 3     3   15 use strict;
  3         6  
  3         469  
4              
5             # Parent Class
6              
7             sub new {
8 107     107 0 172 my ( $class, $layered, $args ) = @_;
9 107         441 my $self = bless { layered => $layered, args => $args }, $class;
10 107         251 return $self;
11             }
12              
13             sub get_config {
14 0     0 0 0 my ( $self ) = @_;
15              
16 0         0 return {};
17             }
18              
19             sub layered {
20 107     107 0 370 return shift->{layered};
21             }
22              
23             sub args {
24 264     264 0 1330 return shift->{args};
25             }
26              
27             1;