File Coverage

inc/My/ShareConfig.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 22 72.7


line stmt bran cond sub pod time code
1             package My::ShareConfig;
2              
3 2     2   10 use strict;
  2         2  
  2         52  
4 2     2   6 use warnings;
  2         2  
  2         114  
5 2     2   67 use File::Spec ();
  2         5  
  2         54  
6 2     2   8 use parent qw( My::ConfigPl );
  2         2  
  2         8  
7              
8 0     0 0   sub dir { File::Spec->catdir( qw( blib lib auto share dist FFI-Platypus )) }
9 0     0 0   sub file { File::Spec->catfile( shift->dir, qw( config.pl )) }
10              
11             1;