File Coverage

blib/lib/Config/Maker/Path/Root.pm
Criterion Covered Total %
statement 19 20 95.0
branch 2 2 100.0
condition n/a
subroutine 8 9 88.8
pod 0 4 0.0
total 29 35 82.8


line stmt bran cond sub pod time code
1             package Config::Maker::Path::Root;
2              
3 9     9   58 use utf8;
  9         23  
  9         70  
4 9     9   332 use warnings;
  9         18  
  9         328  
5 9     9   56 use strict;
  9         19  
  9         292  
6              
7 9     9   57 use Carp;
  9         19  
  9         719  
8 9     9   61 use Config::Maker::Path;
  9         19  
  9         1965  
9             our @ISA = qw(Config::Maker::Path);
10              
11             sub new {
12 22     22 0 194 shift->bhash([qw/-tail/], @_);
13             }
14              
15             sub match {
16 12     12 0 84 $Config::Maker::Eval::config->{root};
17             }
18              
19             # Inherited find...
20              
21 0     0 0 0 sub text { '/' };
22              
23             sub str {
24 62     62 0 1630 my ($self) = @_;
25 62 100       397 '/' . ($self->{-tail} ? $self->{-tail}->str : '');
26             }
27              
28             1;
29              
30             __END__