[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 package CPANPLUS::Dist::Build::Constants; 2 3 use strict; 4 use File::Spec; 5 6 BEGIN { 7 8 require Exporter; 9 use vars qw[$VERSION @ISA @EXPORT]; 10 11 $VERSION = 0.01; 12 @ISA = qw[Exporter]; 13 @EXPORT = qw[ BUILD_DIR BUILD ]; 14 } 15 16 17 use constant BUILD_DIR => sub { return @_ 18 ? File::Spec->catdir($_[0], '_build') 19 : '_build'; 20 }; 21 use constant BUILD => sub { my $file = @_ 22 ? File::Spec->catfile($_[0], 'Build') 23 : 'Build'; 24 25 ### on VMS, '.com' is appended when 26 ### creating the Build file 27 $file .= '.com' if $^O eq 'VMS'; 28 29 return $file; 30 }; 31 32 1; 33 34 35 # Local variables: 36 # c-indentation-style: bsd 37 # c-basic-offset: 4 38 # indent-tabs-mode: nil 39 # End: 40 # vim: expandtab shiftwidth=4:
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |