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