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
pod n/a
total 23 23 100.0


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