summaryrefslogtreecommitdiff
path: root/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm')
-rw-r--r--cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm164
1 files changed, 82 insertions, 82 deletions
diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm
index 443d5a4ca8..556fb349df 100644
--- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm
+++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm
@@ -21,10 +21,10 @@ sub constants { @EXPORT };
use constant INSTALLER_BUILD
=> 'CPANPLUS::Dist::Build';
-use constant INSTALLER_MM => 'CPANPLUS::Dist::MM';
-use constant INSTALLER_SAMPLE
+use constant INSTALLER_MM => 'CPANPLUS::Dist::MM';
+use constant INSTALLER_SAMPLE
=> 'CPANPLUS::Dist::Sample';
-use constant INSTALLER_BASE => 'CPANPLUS::Dist::Base';
+use constant INSTALLER_BASE => 'CPANPLUS::Dist::Base';
use constant INSTALLER_AUTOBUNDLE
=> 'CPANPLUS::Dist::Autobundle';
@@ -50,26 +50,26 @@ use constant ON_NETWARE => $^O eq 'NetWare';
use constant ON_CYGWIN => $^O eq 'cygwin';
use constant ON_VMS => $^O eq 'VMS';
-use constant DOT_CPANPLUS => ON_VMS ? '_cpanplus' : '.cpanplus';
+use constant DOT_CPANPLUS => ON_VMS ? '_cpanplus' : '.cpanplus';
use constant OPT_AUTOFLUSH => '-MCPANPLUS::Internals::Utils::Autoflush';
use constant UNKNOWN_DL_LOCATION
- => 'UNKNOWN-ORIGIN';
+ => 'UNKNOWN-ORIGIN';
use constant NMAKE => 'nmake.exe';
-use constant NMAKE_URL =>
+use constant NMAKE_URL =>
'ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe';
-use constant INSTALL_VIA_PACKAGE_MANAGER
+use constant INSTALL_VIA_PACKAGE_MANAGER
=> sub { my $fmt = $_[0] or return;
return 1 if $fmt ne INSTALLER_BUILD and
$fmt ne INSTALLER_MM;
- };
+ };
use constant IS_CODEREF => sub { ref $_[-1] eq 'CODE' };
-use constant IS_MODOBJ => sub { UNIVERSAL::isa($_[-1],
- 'CPANPLUS::Module') };
+use constant IS_MODOBJ => sub { UNIVERSAL::isa($_[-1],
+ 'CPANPLUS::Module') };
use constant IS_FAKE_MODOBJ => sub { UNIVERSAL::isa($_[-1],
'CPANPLUS::Module::Fake') };
use constant IS_AUTHOBJ => sub { UNIVERSAL::isa($_[-1],
@@ -83,48 +83,48 @@ use constant IS_CONFOBJ => sub { UNIVERSAL::isa($_[-1],
use constant IS_RVOBJ => sub { UNIVERSAL::isa($_[-1],
'CPANPLUS::Backend::RV') };
-
+
use constant IS_INTERNALS_OBJ
=> sub { UNIVERSAL::isa($_[-1],
- 'CPANPLUS::Internals') };
-
-use constant IS_FILE => sub { return 1 if -e $_[-1] };
+ 'CPANPLUS::Internals') };
+
+use constant IS_FILE => sub { return 1 if -e $_[-1] };
-use constant FILE_EXISTS => sub {
+use constant FILE_EXISTS => sub {
my $file = $_[-1];
return 1 if IS_FILE->($file);
- local $Carp::CarpLevel =
+ local $Carp::CarpLevel =
$Carp::CarpLevel+2;
error(loc( q[File '%1' does not exist],
$file));
return;
- };
+ };
-use constant FILE_READABLE => sub {
+use constant FILE_READABLE => sub {
my $file = $_[-1];
return 1 if -e $file && -r _;
- local $Carp::CarpLevel =
+ local $Carp::CarpLevel =
$Carp::CarpLevel+2;
error( loc( q[File '%1' is not readable ].
q[or does not exist], $file));
return;
- };
+ };
use constant IS_DIR => sub { return 1 if -d $_[-1] };
-use constant DIR_EXISTS => sub {
+use constant DIR_EXISTS => sub {
my $dir = $_[-1];
return 1 if IS_DIR->($dir);
- local $Carp::CarpLevel =
- $Carp::CarpLevel+2;
+ local $Carp::CarpLevel =
+ $Carp::CarpLevel+2;
error(loc(q[Dir '%1' does not exist],
$dir));
return;
- };
-
- ### On VMS, if the $Config{make} is either MMK
+ };
+
+ ### On VMS, if the $Config{make} is either MMK
### or MMS, then the makefile is 'DESCRIP.MMS'.
use constant MAKEFILE => sub { my $file =
- (ON_VMS and
+ (ON_VMS and
$Config::Config{make} =~ /MM[S|K]/i)
? 'DESCRIP.MMS'
: 'Makefile';
@@ -132,27 +132,27 @@ use constant MAKEFILE => sub { my $file =
return @_
? File::Spec->catfile( @_, $file )
: $file;
- };
+ };
use constant MAKEFILE_PL => sub { return @_
? File::Spec->catfile( @_,
'Makefile.PL' )
: 'Makefile.PL';
- };
+ };
use constant BUILD_PL => sub { return @_
? File::Spec->catfile( @_,
'Build.PL' )
: 'Build.PL';
};
-
+
use constant META_YML => sub { return @_
? File::Spec->catfile( @_, 'META.yml' )
: 'META.yml';
- };
+ };
use constant MYMETA_YML => sub { return @_
? File::Spec->catfile( @_, 'MYMETA.yml' )
: 'MYMETA.yml';
- };
+ };
use constant META_JSON => sub { return @_
? File::Spec->catfile( @_, 'META.json' )
@@ -167,41 +167,41 @@ use constant MYMETA_JSON => sub { return @_
use constant BLIB => sub { return @_
? File::Spec->catfile(@_, 'blib')
: 'blib';
- };
+ };
use constant LIB => 'lib';
use constant LIB_DIR => sub { return @_
? File::Spec->catdir(@_, LIB)
: LIB;
- };
-use constant AUTO => 'auto';
+ };
+use constant AUTO => 'auto';
use constant LIB_AUTO_DIR => sub { return @_
? File::Spec->catdir(@_, LIB, AUTO)
: File::Spec->catdir(LIB, AUTO)
- };
+ };
use constant ARCH => 'arch';
use constant ARCH_DIR => sub { return @_
? File::Spec->catdir(@_, ARCH)
: ARCH;
- };
+ };
use constant ARCH_AUTO_DIR => sub { return @_
? File::Spec->catdir(@_,ARCH,AUTO)
: File::Spec->catdir(ARCH,AUTO)
- };
+ };
use constant BLIB_LIBDIR => sub { return @_
? File::Spec->catdir(
@_, BLIB->(), LIB )
: File::Spec->catdir( BLIB->(), LIB );
- };
+ };
-use constant CONFIG_USER_LIB_DIR => sub {
+use constant CONFIG_USER_LIB_DIR => sub {
require CPANPLUS::Internals::Utils;
LIB_DIR->(
CPANPLUS::Internals::Utils->_home_dir,
DOT_CPANPLUS
);
- };
+ };
use constant CONFIG_USER_FILE => sub {
File::Spec->catfile(
CONFIG_USER_LIB_DIR->(),
@@ -214,13 +214,13 @@ use constant CONFIG_SYSTEM_FILE => sub {
my $dir = File::Basename::dirname(
$INC{'CPANPLUS/Internals.pm'}
);
-
+
### XXX use constants
- File::Spec->catfile(
+ File::Spec->catfile(
$dir, qw[Config System.pm]
);
- };
-
+ };
+
use constant README => sub { my $obj = $_[0];
my $pkg = $obj->package_name;
$pkg .= '-' . $obj->package_version .
@@ -234,8 +234,8 @@ use constant META => sub { my $obj = $_[0];
$pkg .= '-' . $obj->package_version .
'.' . META_EXT;
return $pkg;
- };
-
+ };
+
use constant OPEN_FILE => sub {
my($file, $mode) = (@_, '');
my $fh;
@@ -245,23 +245,23 @@ use constant OPEN_FILE => sub {
$file, $!));
return $fh if $fh;
return;
- };
-
-use constant OPEN_DIR => sub {
+ };
+
+use constant OPEN_DIR => sub {
my $dir = shift;
my $dh;
opendir $dh, $dir or error(loc(
"Could not open dir '%1': %2", $dir, $!
));
-
+
return $dh if $dh;
return;
};
-use constant READ_DIR => sub {
+use constant READ_DIR => sub {
my $dir = shift;
my $dh = OPEN_DIR->( $dir ) or return;
-
+
### exclude . and ..
my @files = grep { $_ !~ /^\.{1,2}/ }
readdir($dh);
@@ -271,27 +271,27 @@ use constant READ_DIR => sub {
if( ON_VMS ) {
s/(?<!\^)\.$// for @files;
}
-
+
return @files;
- };
+ };
-use constant STRIP_GZ_SUFFIX
+use constant STRIP_GZ_SUFFIX
=> sub {
my $file = $_[0] or return;
$file =~ s/.gz$//i;
return $file;
- };
-
+ };
+
use constant CHECKSUMS => 'CHECKSUMS';
use constant PGP_HEADER => '-----BEGIN PGP SIGNED MESSAGE-----';
use constant ENV_CPANPLUS_CONFIG
=> 'PERL5_CPANPLUS_CONFIG';
use constant ENV_CPANPLUS_IS_EXECUTING
=> 'PERL5_CPANPLUS_IS_EXECUTING';
-use constant DEFAULT_EMAIL => 'cpanplus@example.com';
+use constant DEFAULT_EMAIL => 'cpanplus@example.com';
use constant CPANPLUS_UA => sub { ### for the version number ###
require CPANPLUS::Internals;
- "CPANPLUS/$CPANPLUS::Internals::VERSION"
+ "CPANPLUS/$CPANPLUS::Internals::VERSION"
};
use constant TESTERS_URL => sub {
'http://cpantesters.org/distro/'.
@@ -301,15 +301,15 @@ use constant TESTERS_DETAILS_URL
=> sub {
'http://cpantesters.org/distro/'.
uc(substr($_[0],0,1)) .'/'. $_[0];
- };
+ };
-use constant CREATE_FILE_URI
- => sub {
+use constant CREATE_FILE_URI
+ => sub {
my $dir = $_[0] or return;
- return $dir =~ m|^/|
+ return $dir =~ m|^/|
? 'file://' . $dir
- : 'file:///' . $dir;
- };
+ : 'file:///' . $dir;
+ };
use constant EMPTY_DSLIP => ' ';
@@ -318,18 +318,18 @@ use constant CUSTOM_AUTHOR_ID
use constant DOT_SHELL_DEFAULT_RC
=> '.shell-default.rc';
-
+
use constant SOURCE_SQLITE_DB
=> 'db.sql';
-use constant PREREQ_IGNORE => 0;
+use constant PREREQ_IGNORE => 0;
use constant PREREQ_INSTALL => 1;
use constant PREREQ_ASK => 2;
use constant PREREQ_BUILD => 3;
use constant BOOLEANS => [0,1];
-use constant CALLING_FUNCTION
+use constant CALLING_FUNCTION
=> sub { my $lvl = $_[0] || 0;
- return join '::', (caller(2+$lvl))[3]
+ return join '::', (caller(2+$lvl))[3]
};
use constant PERL_CORE => 'perl';
use constant STORABLE_EXT => '.stored';
@@ -337,45 +337,45 @@ use constant STORABLE_EXT => '.stored';
use constant GET_XS_FILES => sub { my $dir = $_[0] or return;
require File::Find;
my @files;
- File::Find::find(
+ File::Find::find(
sub { push @files, $File::Find::name
if $File::Find::name =~ /\.xs$/i
}, $dir );
-
+
return @files;
- };
+ };
-use constant INSTALL_LOG_FILE
+use constant INSTALL_LOG_FILE
=> sub { my $obj = shift or return;
my $name = $obj->name; $name =~ s/::/-/g;
$name .= '-'. $obj->version;
$name .= '-'. scalar(time) . '.log';
return $name;
- };
+ };
-use constant ON_OLD_CYGWIN => do { ON_CYGWIN and $] < 5.008
+use constant ON_OLD_CYGWIN => do { ON_CYGWIN and $] < 5.008
? loc(
"Your perl version for %1 is too low; ".
"Require %2 or higher for this function",
$^O, '5.8.0' )
- : '';
+ : '';
};
### XXX these 2 are probably obsolete -- check & remove;
-use constant DOT_EXISTS => '.exists';
+use constant DOT_EXISTS => '.exists';
-use constant QUOTE_PERL_ONE_LINER
+use constant QUOTE_PERL_ONE_LINER
=> sub { my $line = shift or return;
### use double quotes on these systems
- return qq["$line"]
+ return qq["$line"]
if ON_WIN32 || ON_NETWARE || ON_VMS;
### single quotes on the rest
return qq['$line'];
- };
+ };
-1;
+1;
# Local variables:
# c-indentation-style: bsd
View Lorry Controller Status