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