Acme-W

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

#####################################################################
# Common Utility Functions

sub _caller {
	my $depth = 0;
	my $call  = caller($depth);
	while ( $call eq __PACKAGE__ ) {
		$depth++;
		$call = caller($depth);
	}
	return $call;
}

# Done in evals to avoid confusing Perl::MinimumVersion
eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _read {
	local *FH;
	open( FH, '<', $_[0] ) or die "open($_[0]): $!";
	my $string = do { local $/; <FH> };

inc/Module/Install/Makefile.pm  view on Meta::CPAN

}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
	shift;

	# Infinite loop protection
	my @c = caller();
	if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
		die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
	}

	# In automated testing or non-interactive session, always use defaults
	if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) {
		local $ENV{PERL_MM_USE_DEFAULT} = 1;
		goto &ExtUtils::MakeMaker::prompt;
	} else {
		goto &ExtUtils::MakeMaker::prompt;

inc/Test/More.pm  view on Meta::CPAN

#---- perlcritic exemptions. ----#

# We use a lot of subroutine prototypes
## no critic (Subroutines::ProhibitSubroutinePrototypes)

# Can't use Carp because it might cause use_ok() to accidentally succeed
# even though the module being used forgot to use Carp.  Yes, this
# actually happened.
sub _carp {
    my( $file, $line ) = ( caller(1) )[ 1, 2 ];
    return warn @_, " at $file line $line\n";
}

our $VERSION = '0.94';
$VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)

use Test::Builder::Module;
our @ISA    = qw(Test::Builder::Module);
our @EXPORT = qw(ok use_ok require_ok
  is isnt like unlike is_deeply

lib/Acme/W.pm  view on Meta::CPAN

    s/([^\$\w\d])msgctl([^\w\d])/$1wwWwwww$2/g;
    s/([^\$\w\d])listen([^\w\d])/$1wwwWWWW$2/g;
    s/([^\$\w\d])length([^\w\d])/$1wwwWWWw$2/g;
    s/([^\$\w\d])gmtime([^\w\d])/$1wwwWWwW$2/g;
    s/([^\$\w\d])format([^\w\d])/$1wwwWWww$2/g;
    s/([^\$\w\d])fileno([^\w\d])/$1wwwWwWW$2/g;
    s/([^\$\w\d])exists([^\w\d])/$1wwwWwWw$2/g;
    s/([^\$\w\d])elseif([^\w\d])/$1wwwWwwW$2/g;
    s/([^\$\w\d])delete([^\w\d])/$1wwwWwww$2/g;
    s/([^\$\w\d])chroot([^\w\d])/$1wwwwWWW$2/g;
    s/([^\$\w\d])caller([^\w\d])/$1wwwwWWw$2/g;
    s/([^\$\w\d])accept([^\w\d])/$1wwwwWwW$2/g;
    s/([^\$\w\d])write([^\w\d])/$1wwwwWww$2/g;
    s/([^\$\w\d])while([^\w\d])/$1wwwwwWW$2/g;
    s/([^\$\w\d])utime([^\w\d])/$1wwwwwWw$2/g;
    s/([^\$\w\d])until([^\w\d])/$1wwwwwwW$2/g;
    s/([^\$\w\d])untie([^\w\d])/$1wwwwwww$2/g;
    s/([^\$\w\d])undef([^\w\d])/$1WWWWWW$2/g;
    s/([^\$\w\d])umask([^\w\d])/$1WWWWWw$2/g;
    s/([^\$\w\d])times([^\w\d])/$1WWWWwW$2/g;
    s/([^\$\w\d])study([^\w\d])/$1WWWWww$2/g;