File Coverage

blib/lib/App/Prove/Plugin/ShareDirDist.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package App::Prove::Plugin::ShareDirDist;
2              
3 2     2   50084 use strict;
  2         5  
  2         52  
4 2     2   10 use warnings;
  2         4  
  2         48  
5 2     2   35 use 5.008001;
  2         6  
6 2     2   9 use File::Spec;
  2         3  
  2         53  
7 2     2   9 use File::Basename qw( basename );
  2         3  
  2         259  
8              
9             # ABSTRACT: A prove plugin that works with File::ShareDir::Dist
10             our $VERSION = '0.05'; # VERSION
11              
12              
13             sub load
14             {
15 1     1 0 298 my($class, $p) = @_;
16 1 50       17 if(-d "share")
17             {
18 1         102 my $dist_name = basename(File::Spec->rel2abs("."));
19 1         14 $ENV{PERL_FILE_SHAREDIR_DIST} = "$dist_name=share";
20             }
21             }
22              
23             1;
24              
25             __END__