Acme-W

 view release on metacpan or  search on metacpan

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

	$class =~ s/^\Q$args{prefix}\E:://;
	$args{name}     ||= $class;
	$args{version}  ||= $class->VERSION;
	unless ( $args{path} ) {
		$args{path}  = $args{name};
		$args{path}  =~ s!::!/!g;
	}
	$args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";
	$args{wrote}      = 0;

	bless( \%args, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = $self->load($method) or return;
        splice(@_, 0, 2, $obj);
	goto &{$obj->can($method)};
}

sub load {

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

#line 42

sub new {
	my $class = shift;
	unless ( defined &{"${class}::call"} ) {
		*{"${class}::call"} = sub { shift->_top->call(@_) };
	}
	unless ( defined &{"${class}::load"} ) {
		*{"${class}::load"} = sub { shift->_top->load(@_) };
	}
	bless { @_ }, $class;
}

#line 61

sub AUTOLOAD {
	local $@;
	my $func = eval { shift->_top->autoload } or return;
	goto &$func;
}

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

package Module::Install::Base::FakeAdmin;

use vars qw{$VERSION};
BEGIN {
	$VERSION = $Module::Install::Base::VERSION;
}

my $fake;

sub new {
	$fake ||= bless(\@_, $_[0]);
}

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler
BEGIN {
	$SIG{__WARN__} = $SIG{__WARN__}->();
}

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

	$self->version( ExtUtils::MM_Unix->parse_version($file) );

	# for version integrity check
	$self->makemaker_args( VERSION_FROM => $file );
}

sub abstract_from {
	require ExtUtils::MM_Unix;
	my ( $self, $file ) = @_;
	$self->abstract(
		bless(
			{ DISTNAME => $self->name },
			'ExtUtils::MM_Unix'
		)->parse_abstract($file)
	);
}

# Add both distribution and module name
sub name_from {
	my ($self, $file) = @_;
	if (

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

    if( !defined $object ) {
        $obj_name = 'The thing' unless defined $obj_name;
        $diag = "$obj_name isn't defined";
    }
    else {
        my $whatami = ref $object ? 'object' : 'class';
        # We can't use UNIVERSAL::isa because we want to honor isa() overrides
        my( $rslt, $error ) = $tb->_try( sub { $object->isa($class) } );
        if($error) {
            if( $error =~ /^Can't call method "isa" on unblessed reference/ ) {
                # Its an unblessed reference
                $obj_name = 'The reference' unless defined $obj_name;
                if( !UNIVERSAL::isa( $object, $class ) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            }
            elsif( $error =~ /Can't call method "isa" without a package/ ) {
                # It's something that can't even be a class
                $obj_name = 'The thing' unless defined $obj_name;
                $diag = "$obj_name isn't a class or reference";

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

    # End with an alphanumeric.
    # The rest is an alphanumeric or ::
    $module =~ s/\b::\b//g;

    return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
}

#line 952

our( @Data_Stack, %Refs_Seen );
my $DNE = bless [], 'Does::Not::Exist';

sub _dne {
    return ref $_[0] eq ref $DNE;
}

## no critic (Subroutines::RequireArgUnpacking)
sub is_deeply {
    my $tb = Test::More->builder;

    unless( @_ == 2 or @_ == 3 ) {

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

    s/([^\$\w\d])flock([^\w\d])/$1WwWWww$2/g;
    s/([^\$\w\d])fcntl([^\w\d])/$1WwWwWW$2/g;
    s/([^\$\w\d])elsif([^\w\d])/$1WwWwWw$2/g;
    s/([^\$\w\d])crypt([^\w\d])/$1WwWwwW$2/g;
    s/([^\$\w\d])close([^\w\d])/$1WwWwww$2/g;
    s/([^\$\w\d])chown([^\w\d])/$1WwwWWW$2/g;
    s/([^\$\w\d])chomp([^\w\d])/$1WwwWWw$2/g;
    s/([^\$\w\d])chmod([^\w\d])/$1WwwWwW$2/g;
    s/([^\$\w\d])chdir([^\w\d])/$1WwwWww$2/g;
    s/([^\$\w\d])break([^\w\d])/$1WwwwWW$2/g;
    s/([^\$\w\d])bless([^\w\d])/$1WwwwWw$2/g;
    s/([^\$\w\d])atan2([^\w\d])/$1WwwwwW$2/g;
    s/([^\$\w\d])alarm([^\w\d])/$1Wwwwww$2/g;
    s/([^\$\w\d])CHECK([^\w\d])/$1wWWWWW$2/g;
    s/([^\$\w\d])BEGIN([^\w\d])/$1wWWWWw$2/g;
    s/([^\$\w\d])when([^\w\d])/$1wWWWwW$2/g;
    s/([^\$\w\d])warn([^\w\d])/$1wWWWww$2/g;
    s/([^\$\w\d])wait([^\w\d])/$1wWWwWW$2/g;
    s/([^\$\w\d])time([^\w\d])/$1wWWwWw$2/g;
    s/([^\$\w\d])tied([^\w\d])/$1wWWwwW$2/g;
    s/([^\$\w\d])tell([^\w\d])/$1wWWwww$2/g;

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

    s/([^\$\w\d])WwWWww([^\w\d])/$1flock$2/g;
    s/([^\$\w\d])WwWwWW([^\w\d])/$1fcntl$2/g;
    s/([^\$\w\d])WwWwWw([^\w\d])/$1elsif$2/g;
    s/([^\$\w\d])WwWwwW([^\w\d])/$1crypt$2/g;
    s/([^\$\w\d])WwWwww([^\w\d])/$1close$2/g;
    s/([^\$\w\d])WwwWWW([^\w\d])/$1chown$2/g;
    s/([^\$\w\d])WwwWWw([^\w\d])/$1chomp$2/g;
    s/([^\$\w\d])WwwWwW([^\w\d])/$1chmod$2/g;
    s/([^\$\w\d])WwwWww([^\w\d])/$1chdir$2/g;
    s/([^\$\w\d])WwwwWW([^\w\d])/$1break$2/g;
    s/([^\$\w\d])WwwwWw([^\w\d])/$1bless$2/g;
    s/([^\$\w\d])WwwwwW([^\w\d])/$1atan2$2/g;
    s/([^\$\w\d])Wwwwww([^\w\d])/$1alarm$2/g;
    s/([^\$\w\d])wWWWWW([^\w\d])/$1CHECK$2/g;
    s/([^\$\w\d])wWWWWw([^\w\d])/$1BEGIN$2/g;
    s/([^\$\w\d])wWWWwW([^\w\d])/$1when$2/g;
    s/([^\$\w\d])wWWWww([^\w\d])/$1warn$2/g;
    s/([^\$\w\d])wWWwWW([^\w\d])/$1wait$2/g;
    s/([^\$\w\d])wWWwWw([^\w\d])/$1time$2/g;
    s/([^\$\w\d])wWWwwW([^\w\d])/$1tied$2/g;
    s/([^\$\w\d])wWWwww([^\w\d])/$1tell$2/g;