File Coverage

blib/lib/lib/findbin.pm
Criterion Covered Total %
statement 18 18 100.0
branch 4 4 100.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package lib::findbin;
2              
3 1     1   22793 use strict;
  1         3  
  1         40  
4 1     1   6 use warnings;
  1         3  
  1         24  
5 1     1   837 use FindBin ();
  1         1157  
  1         21  
6 1     1   1044 use lib ();
  1         6494  
  1         140  
7              
8             $lib::findbin::VERSION = '0.2';
9              
10             sub import {
11 2     2   1175 shift;
12 2 100       10 lib->import( map { "$FindBin::Bin/$_" } ( @_ ? @_ : qw(lib ../lib) ) );
  3         19  
13             }
14              
15             sub unimport {
16 2     2   1952 shift;
17 2 100       8 lib->unimport( map { "$FindBin::Bin/$_" } ( @_ ? @_ : qw(lib ../lib) ) );
  3         47  
18             }
19              
20             1;
21              
22             __END__