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   41 use 5.008008;
  3         8  
2 3     3   14 use strict;
  3         3  
  3         46  
3 3     3   11 use warnings;
  3         3  
  3         142  
4              
5             package portable::lib;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.002';
9              
10 3     3   1168 use FindBin qw($Bin);
  3         2713  
  3         543  
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         1010 push @portable::INC, map { (my $fn = $_) =~ s(/$)(); $fn } @_;
  0            
  0            
17             }
18              
19             1;