File Coverage

inc/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             #line 1
2             package ExtUtils::testlib;
3 3     3   95983  
  3         6  
  3         93  
4 3     3   14 use strict;
  3         4  
  3         141  
5             use warnings;
6              
7             our $VERSION = '6.62';
8 3     3   14  
  3         6  
  3         198  
9 3     3   15 use Cwd;
  3         10  
  3         159  
10             use File::Spec;
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 3     3   163 BEGIN {
19             ($cwd) = getcwd() =~ /(.*)/;
20 3     3   2776 }
  3         2018  
  3         6  
  6         199  
21             use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
22             1;
23             __END__
24