File Coverage

blib/lib/portable/lib.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1 3     3   42 use 5.008008;
  3         19  
2 3     3   13 use strict;
  3         5  
  3         46  
3 3     3   11 use warnings;
  3         4  
  3         142  
4              
5             package portable::lib;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.003';
9              
10 3     3   1159 use FindBin qw($Bin);
  3         2586  
  3         510  
11             push @portable::INC, $Bin;
12             push @portable::INC, "$Bin/lib" if -d "$Bin/lib";
13              
14             sub import {
15 12     12   22 my $me = shift;
16 12         1021 push @portable::INC, map { (my $fn = $_) =~ s(/$)(); $fn } @_;
  0            
  0            
17             }
18              
19             1;