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 47     47   402 use strict;
  47         110  
  47         1986  
3 47     47   252 use warnings;
  47         99  
  47         1317  
4 47     47   245 use base 'Module::Setup::Path::Base';
  47         99  
  47         3719  
5              
6 47     47   306 use Module::Setup::Path::Config;
  47         114  
  47         6410  
7              
8             sub new {
9 123     123 0 337 my($class, @path) = @_;
10 123         739 my $self = $class->SUPER::new(@path);
11              
12 123         765 $self->{config} = Module::Setup::Path::Config->new($self->path_to('config.yaml'));
13              
14 123         915 $self;
15             }
16              
17 101     101 0 884 sub config { shift->{config} }
18              
19             1;