[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: