File Coverage

blib/lib/lib/tiny/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::tiny::findbin;
2              
3 1     1   6422 use strict;
  1         2  
  1         35  
4 1     1   5 use warnings;
  1         2  
  1         31  
5 1     1   897 use FindBin ();
  1         1212  
  1         19  
6 1     1   6 use lib::tiny ();
  1         1  
  1         139  
7              
8             $lib::tiny::findbin::VERSION = '0.1';
9              
10             sub import {
11 2     2   5958 shift;
12 2 100       13 lib::tiny->import( map { "$FindBin::Bin/$_" } ( @_ ? @_ : qw(lib ../lib) ) );
  3         23  
13             }
14              
15             sub unimport {
16 2     2   2591 shift;
17 2 100       9 lib::tiny->unimport( map { "$FindBin::Bin/$_" } ( @_ ? @_ : qw(lib ../lib) ) );
  3         16  
18             }
19              
20             1;
21              
22             __END__