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 9 55.5
pod 0 5 0.0
total 21 31 67.7


line stmt bran cond sub pod time code
1             package App::Yath::Plugin::ShareDirDist;
2              
3 2     2   79654 use strict;
  2         6  
  2         60  
4 2     2   12 use warnings;
  2         5  
  2         51  
5 2     2   10 use File::Spec;
  2         4  
  2         46  
6 2     2   12 use File::Basename qw( basename );
  2         5  
  2         416  
7              
8             # ABSTRACT: A prove plugin that works with File::ShareDir::Dist
9             our $VERSION = '0.05'; # VERSION
10              
11              
12       0 0   sub options {}
13              
14             sub pre_init
15             {
16 1 50   1 0 164 if(-d "share")
17             {
18 1         60 my $dist_name = basename(File::Spec->rel2abs("."));
19 1         7 $ENV{PERL_FILE_SHAREDIR_DIST} = "$dist_name=share";
20             }
21             }
22              
23       0 0   sub post_init {}
24       0 0   sub find_files {}
25       0 0   sub block_default_search {}
26              
27             1;
28              
29             __END__