File Coverage

blib/lib/Config/Maker/Path/Parent.pm
Criterion Covered Total %
statement 18 19 94.7
branch 1 2 50.0
condition n/a
subroutine 7 8 87.5
pod 0 3 0.0
total 26 32 81.2


line stmt bran cond sub pod time code
1             package Config::Maker::Path::Parent;
2              
3 9     9   183 use utf8;
  9         19  
  9         60  
4 9     9   381 use warnings;
  9         24  
  9         320  
5 9     9   53 use strict;
  9         21  
  9         259  
6              
7 9     9   62 use Carp;
  9         17  
  9         629  
8 9     9   52 use Config::Maker::Path;
  9         22  
  9         1439  
9             our @ISA = qw(Config::Maker::Path);
10              
11             sub new {
12 1     1 0 15 shift->bhash([qw/-tail/], @_);
13             }
14              
15             sub match {
16 2     2 0 3 my ($self, $from) = @_;
17              
18 2 50       11 $from->{-parent} ? $from->{-parent} : $from;
19             }
20              
21 0     0 0   sub text { '..' }
22              
23             1;
24              
25             __END__