Updated CPANPLUS::Dist::Build to cpan version 0.41_01
[p5sagit/p5-mst-13.2.git] / cpan / CPANPLUS-Dist-Build / lib / CPANPLUS / Dist / Build / Constants.pm
1 package CPANPLUS::Dist::Build::Constants;
2
3 use strict;
4 use warnings;
5 use File::Spec;
6
7 BEGIN {
8
9     require Exporter;
10     use vars    qw[$VERSION @ISA @EXPORT];
11   
12     $VERSION    = '0.41_01';
13     @ISA        = qw[Exporter];
14     @EXPORT     = qw[ BUILD_DIR BUILD ];
15 }
16
17
18 use constant BUILD_DIR      => sub { return @_
19                                         ? File::Spec->catdir($_[0], '_build')
20                                         : '_build';
21                             }; 
22 use constant BUILD          => sub { my $file = @_
23                                         ? File::Spec->catfile($_[0], 'Build')
24                                         : 'Build';
25                                         
26                                      ### on VMS, '.com' is appended when
27                                      ### creating the Build file
28                                      $file .= '.com' if $^O eq 'VMS';     
29                                      
30                                      return $file;
31                             };
32                             
33 1;
34
35 =head1 NAME
36
37 CPANPLUS::Dist::Build::Constants - Constants for CPANPLUS::Dist::Build
38
39 =head1 SYNOPSIS
40
41   use CPANPLUS::Dist::Build::Constants;
42
43 =head1 DESCRIPTION
44
45 CPANPLUS::Dist::Build::Constants provides some constants required by L<CPANPLUS::Dist::Build>.
46
47 =head1 AUTHOR
48
49 Originally by Jos Boumans E<lt>kane@cpan.orgE<gt>.  Brought to working
50 condition and currently maintained by Ken Williams E<lt>kwilliams@cpan.orgE<gt>.
51
52 =head1 LICENSE
53
54 The CPAN++ interface (of which this module is a part of) is
55 copyright (c) 2001, 2002, 2003, 2004, 2005 Jos Boumans E<lt>kane@cpan.orgE<gt>.
56 All rights reserved.
57
58 This library is free software;
59 you may redistribute and/or modify it under the same
60 terms as Perl itself.
61
62 =cut
63
64 # Local variables:
65 # c-indentation-style: bsd
66 # c-basic-offset: 4
67 # indent-tabs-mode: nil
68 # End:
69 # vim: expandtab shiftwidth=4: