File Coverage

blib/lib/Module/Setup/Path/Dir.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition 2 3 66.6
subroutine 6 6 100.0
pod 2 2 100.0
total 27 28 96.4


line stmt bran cond sub pod time code
1             package Module::Setup::Path::Dir;
2 47     47   250 use strict;
  47         103  
  47         1620  
3 47     47   254 use warnings;
  47         92  
  47         1240  
4 47     47   256 use base 'Path::Class::Dir';
  47         90  
  47         60773  
5              
6 47     47   1708510 use Module::Setup;
  47         203  
  47         6250  
7              
8             sub stringify {
9 14000     14000 1 956918 my($self) = @_;
10 14000   66     248881 return $self->{__stringify_cache} ||= $self->SUPER::stringify;
11             }
12              
13             sub mkpath {
14 395     395 1 1349 my $self = shift;
15 395         1368 Module::Setup::log($self, "Creating directory $self");
16 395         2992 $self->Path::Class::Dir::mkpath(@_);
17             }
18             1;