File Coverage

mock/File/HomeDir.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package File::HomeDir;
2              
3 4     4   71 use 5.008;
  4         13  
  4         144  
4              
5 4     4   22 use strict;
  4         7  
  4         108  
6 4     4   21 use warnings;
  4         9  
  4         126  
7              
8 4     4   22 use File::Spec::Unix;
  4         10  
  4         449  
9              
10             our $VERSION = '0.000_01';
11              
12             our $BASE ||= 'mock/Perl';
13              
14             sub my_dist_config {
15 6     6 1 3317 my ( $class, $dist ) = @_;
16 6         85 return File::Spec::Unix->catdir( $BASE, $dist );
17             }
18              
19              
20             1;
21              
22             __END__