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              
2             use strict;
3 2     2   79302 use warnings;
  2         11  
  2         49  
4 2     2   9  
  2         2  
  2         112  
5             our $VERSION = '7.64';
6             $VERSION =~ tr/_//d;
7              
8             use Cwd;
9 2     2   12 use File::Spec;
  2         4  
  2         123  
10 2     2   10  
  2         3  
  2         122  
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             ($cwd) = getcwd() =~ /(.*)/;
19 2     2   116 }
20             use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
21 2     2   847 1;
  2         1144  
  2         4  
  4         88  
22              
23             =head1 NAME
24              
25             ExtUtils::testlib - add blib/* directories to @INC
26              
27             =head1 SYNOPSIS
28              
29             use ExtUtils::testlib;
30              
31             =head1 DESCRIPTION
32              
33             After an extension has been built and before it is installed it may be
34             desirable to test it bypassing C<make test>. By adding
35              
36             use ExtUtils::testlib;
37              
38             to a test program the intermediate directories used by C<make> are
39             added to @INC.
40