File Coverage

blib/lib/lib/ini/plugin/libdir.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package lib::ini::plugin::libdir;
2             {
3             $lib::ini::plugin::libdir::VERSION = '0.002';
4             }
5              
6             # ABSTRACT: Add directories to @INC, appending 'lib'
7              
8 1     1   69933 use strict;
  1         2  
  1         27  
9 1     1   4 use warnings;
  1         3  
  1         19  
10 1     1   3 use File::Spec;
  1         2  
  1         15  
11 1     1   4 use base 'lib::ini::plugin';
  1         2  
  1         536  
12              
13             sub generate_inc {
14 1     1 0 45 my ($class, %args) = @_;
15 1 50       5 my $dir = $args{dir} or return;
16 1         16 return map File::Spec->catdir( $_, 'lib' ),
17 1 50       3 ref $dir ? @{ $args{dir} } : $dir;
18             }
19              
20             1;
21              
22             __END__