File Coverage

lib/ExtUtils/testlib.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
total 23 23 100.0


line stmt bran cond sub time code
1           package ExtUtils::testlib;
2            
3 1     1 1367 use strict;
  1       3  
  1       41  
4 1     1 5 use warnings;
  1       3  
  1       56  
5            
6           our $VERSION = '6.74';
7            
8 1     1 10 use Cwd;
  1       7  
  1       79  
9 1     1 6 use File::Spec;
  1       2  
  1       76  
10            
11           # So the tests can chdir around and not break @INC.
12           # We use getcwd() because otherwise rel2abs will blow up under taint
13           # mode pre-5.8. We detaint is so @INC won't be tainted. This is
14           # no worse, and probably better, than just shoving an untainted,
15           # relative "blib/lib" onto @INC.
16           my $cwd;
17           BEGIN {
18 1     1 73 ($cwd) = getcwd() =~ /(.*)/;
19           }
20 1     1 331 use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
  1       850  
  1       4  
  2       77  
21           1;
22           __END__