File Coverage

blib/lib/Module/Setup/Path/Additional.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Module::Setup::Path::Additional;
2 41     41   171 use strict;
  41         60  
  41         1072  
3 41     41   438 use warnings;
  41         57  
  41         1046  
4 41     41   171 use base 'Module::Setup::Path::Base';
  41         57  
  41         2961  
5              
6 41     41   220 use Module::Setup::Path::Config;
  41         79  
  41         4760  
7              
8             sub new {
9 111     111 0 262 my($class, @path) = @_;
10 111         447 my $self = $class->SUPER::new(@path);
11              
12 111         420 $self->{config} = Module::Setup::Path::Config->new($self->path_to('config.yaml'));
13              
14 111         533 $self;
15             }
16              
17 92     92 0 552 sub config { shift->{config} }
18              
19             1;