File Coverage

lib/CPANPLUS/Dist/Build/Constants.pm
Criterion Covered Total %
statement 30 31 96.7
branch 2 6 33.3
condition n/a
subroutine 9 9 100.0
pod n/a
total 41 46 89.1


line stmt bran cond sub pod time code
1             package CPANPLUS::Dist::Build::Constants;
2             $CPANPLUS::Dist::Build::Constants::VERSION = '0.90';
3             #ABSTRACT: Constants for CPANPLUS::Dist::Build
4              
5 2     2   620 use if $] > 5.017, 'deprecate';
  2         5  
  2         67  
6              
7 2     2   395 use strict;
  2         6  
  2         63  
8 2     2   11 use warnings;
  2         5  
  2         80  
9 2     2   16 use File::Spec;
  2         10  
  2         116  
10              
11             BEGIN {
12              
13 2     2   14 require Exporter;
14 2     2   14 use vars qw[@ISA @EXPORT];
  2         4  
  2         161  
15              
16 2         52 @ISA = qw[Exporter];
17 2         159 @EXPORT = qw[ BUILD_DIR BUILD CPDB_PERL_WRAPPER];
18             }
19              
20              
21             use constant BUILD_DIR => sub { return @_
22 0 0       0 ? File::Spec->catdir($_[0], '_build')
23             : '_build';
24 2     2   15 };
  2         5  
  2         442  
25 15 50       669 use constant BUILD => sub { my $file = @_
26             ? File::Spec->catfile($_[0], 'Build')
27             : 'Build';
28              
29             ### on VMS, '.com' is appended when
30             ### creating the Build file
31 15 50       285 $file .= '.com' if $^O eq 'VMS';
32              
33 15         348 return $file;
34 2     2   36 };
  2         6  
  2         137  
35              
36              
37 2     2   13 use constant CPDB_PERL_WRAPPER => 'use strict; BEGIN { my $old = select STDERR; $|++; select $old; $|++; $0 = shift(@ARGV); my $rv = do($0); die $@ if $@; }';
  2         5  
  2         137  
38              
39             1;
40              
41              
42             # Local variables:
43             # c-indentation-style: bsd
44             # c-basic-offset: 4
45             # indent-tabs-mode: nil
46             # End:
47             # vim: expandtab shiftwidth=4:
48              
49             __END__