File Coverage

blib/lib/Config/Maker/Path/This.pm
Criterion Covered Total %
statement 18 19 94.7
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 3 0.0
total 25 30 83.3


line stmt bran cond sub pod time code
1             package Config::Maker::Path::This;
2              
3 9     9   47 use utf8;
  9         19  
  9         58  
4 9     9   260 use warnings;
  9         22  
  9         222  
5 9     9   46 use strict;
  9         18  
  9         393  
6              
7 9     9   53 use Carp;
  9         16  
  9         731  
8 9     9   61 use Config::Maker::Path;
  9         22  
  9         38708  
9             our @ISA = qw(Config::Maker::Path);
10              
11             sub new {
12 29     29 0 220 shift->bhash([qw/-tail/], @_);
13             }
14              
15             sub match {
16 115     115 0 178 my ($self, $from) = @_;
17              
18 115         337 $from;
19             }
20              
21 0     0 0   sub text { '.' }
22              
23             1;
24              
25             __END__