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   58809 use strict;
  2         14  
  2         47  
4 2     2   9 use warnings;
  2         3  
  2         35  
5 2     2   40 use 5.008001;
  2         6  
6 2     2   10 use File::Spec;
  2         3  
  2         57  
7 2     2   15 use File::Basename ();
  2         4  
  2         225  
8              
9             # ABSTRACT: A prove plugin that works with File::ShareDir::Dist
10             our $VERSION = '0.06'; # VERSION
11              
12              
13             sub load
14             {
15 1     1 0 174 my($class, $p) = @_;
16 1 50       16 if(-d "share")
17             {
18 1         104 my $dist_name = File::Basename::basename(File::Spec->rel2abs("."));
19 1         10 $ENV{PERL_FILE_SHAREDIR_DIST} = "$dist_name=share";
20             }
21             }
22              
23             1;
24              
25             __END__