File Coverage

blib/lib/App/Yath/Plugin/ShareDirDist.pm
Criterion Covered Total %
statement 15 15 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package App::Yath::Plugin::ShareDirDist;
2              
3 2     2   58737 use strict;
  2         19  
  2         51  
4 2     2   8 use warnings;
  2         3  
  2         39  
5 2     2   8 use File::Spec;
  2         2  
  2         42  
6 2     2   10 use File::Basename ();
  2         2  
  2         260  
7              
8             # ABSTRACT: A prove plugin that works with File::ShareDir::Dist
9             our $VERSION = '0.06'; # VERSION
10              
11              
12             sub pre_init
13             {
14 1 50   1 0 223 if(-d "share")
15             {
16 1         100 my $dist_name = File::Basename::basename(File::Spec->rel2abs("."));
17 1         10 $ENV{PERL_FILE_SHAREDIR_DIST} = "$dist_name=share";
18             }
19             }
20              
21             if(eval { require App::Yath::Plugin })
22             {
23             our @ISA = ('App::Yath::Plugin');
24             }
25              
26             1;
27              
28             __END__