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.60';
  13     @ISA        = qw[Exporter];
  14     @EXPORT     = qw[ BUILD_DIR BUILD CPDB_PERL_WRAPPER];
  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
  34 use constant CPDB_PERL_WRAPPER   => 'use strict; BEGIN { my $old = select STDERR; $|++; select $old; $|++; $0 = shift(@ARGV); my $rv = do($0); die $@ if $@; }';
  35
  36 1;
  37
  38 =head1 NAME
  39
  40 CPANPLUS::Dist::Build::Constants - Constants for CPANPLUS::Dist::Build
  41
  42 =head1 SYNOPSIS
  43
  44   use CPANPLUS::Dist::Build::Constants;
  45
  46 =head1 DESCRIPTION
  47
  48 CPANPLUS::Dist::Build::Constants provides some constants required by L<CPANPLUS::Dist::Build>.
  49
  50 =head1 AUTHOR
  51
  52 Originally by Jos Boumans E<lt>kane@cpan.orgE<gt>.  Brought to working
  53 condition and currently maintained by Ken Williams E<lt>kwilliams@cpan.orgE<gt>.
  54
  55 =head1 LICENSE
  56
  57 The CPAN++ interface (of which this module is a part of) is
  58 copyright (c) 2001, 2002, 2003, 2004, 2005 Jos Boumans E<lt>kane@cpan.orgE<gt>.
  59 All rights reserved.
  60
  61 This library is free software;
  62 you may redistribute and/or modify it under the same
  63 terms as Perl itself.
  64
  65 =cut
  66
  67 # Local variables:
  68 # c-indentation-style: bsd
  69 # c-basic-offset: 4
  70 # indent-tabs-mode: nil
  71 # End:
  72 # vim: expandtab shiftwidth=4: