File Coverage

blib/lib/Config/Maker/Path/Meta.pm
Criterion Covered Total %
statement 15 20 75.0
branch 0 2 0.0
condition n/a
subroutine 5 9 55.5
pod 0 4 0.0
total 20 35 57.1


line stmt bran cond sub pod time code
1             package Config::Maker::Path::Meta;
2              
3 9     9   52 use utf8;
  9         20  
  9         59  
4 9     9   263 use warnings;
  9         21  
  9         226  
5 9     9   52 use strict;
  9         18  
  9         266  
6              
7 9     9   52 use Carp;
  9         15  
  9         792  
8 9     9   57 use Config::Maker::Path;
  9         17  
  9         1911  
9             our @ISA = qw(Config::Maker::Path);
10              
11             sub new {
12 0     0 0   shift->bhash([qw/-tail/], @_);
13             }
14              
15             sub match {
16 0     0 0   $Config::Maker::Eval::config->{meta};
17             }
18              
19             # Inherited find...
20              
21 0     0 0   sub text { 'META:' };
22              
23             sub str {
24 0     0 0   my ($self) = @_;
25 0 0         'META:' . ($self->{-tail} ? $self->{-tail}->str : '');
26             }
27              
28             1;
29              
30             __END__