File Coverage

blib/lib/Config/Maker/Path/AnyPath.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 3 0.0
total 29 32 90.6


line stmt bran cond sub pod time code
1             package Config::Maker::Path::AnyPath;
2              
3 9     9   48 use utf8;
  9         24  
  9         51  
4 9     9   274 use warnings;
  9         20  
  9         228  
5 9     9   48 use strict;
  9         14  
  9         250  
6              
7 9     9   47 use Carp;
  9         23  
  9         669  
8 9     9   50 use Config::Maker::Path;
  9         17  
  9         1700  
9             our @ISA = qw(Config::Maker::Path);
10              
11             sub new {
12 11     11 0 296 shift->bhash([qw/-tail/], @_);
13             }
14              
15             sub match {
16 118     118 0 10817 my ($self, $from) = @_;
17              
18 118         827 ($from, map { $self->match($_) } @{$from->{-children}});
  104         235  
  118         727  
19             }
20              
21 37     37 0 362 sub text { '**' }
22              
23             1;
24              
25             __END__