Acme-W

 view release on metacpan or  search on metacpan

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

sub _version ($) {
	my $s = shift || 0;
	my $d =()= $s =~ /(\.)/g;
	if ( $d >= 2 ) {
		# Normalise multipart versions
		$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
	}
	$s =~ s/^(\d+)\.?//;
	my $l = $1 || 0;
	my @v = map {
		$_ . '0' x (3 - length $_)
	} $s =~ /(\d{1,3})\D?/g;
	$l = $l . '.' . join '', @v if @v;
	return $l + 0;
}

sub _cmp ($$) {
	_version($_[0]) <=> _version($_[1]);
}

# Cloned from Params::Util::_CLASS

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

	for my $subdir (@_) {
		push @$subdirs, $subdir;
	}
}

sub clean_files {
	my $self  = shift;
	my $clean = $self->makemaker_args->{clean} ||= {};
	  %$clean = (
		%$clean,
		FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
	);
}

sub realclean_files {
	my $self      = shift;
	my $realclean = $self->makemaker_args->{realclean} ||= {};
	  %$realclean = (
		%$realclean,
		FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
	);
}

sub libs {
	my $self = shift;
	my $libs = ref $_[0] ? shift : [ shift ];
	$self->makemaker_args( LIBS => $libs );
}

sub inc {

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

    s/([^\$\w\d])scalar([^\w\d])/$1wwWWwww$2/g;
    s/([^\$\w\d])rindex([^\w\d])/$1wwWwWWW$2/g;
    s/([^\$\w\d])return([^\w\d])/$1wwWwWWw$2/g;
    s/([^\$\w\d])rename([^\w\d])/$1wwWwWwW$2/g;
    s/([^\$\w\d])printf([^\w\d])/$1wwWwWww$2/g;
    s/([^\$\w\d])msgsnd([^\w\d])/$1wwWwwWW$2/g;
    s/([^\$\w\d])msgrcv([^\w\d])/$1wwWwwWw$2/g;
    s/([^\$\w\d])msgget([^\w\d])/$1wwWwwwW$2/g;
    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;

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

    s/([^\$\w\d])wwWWwww([^\w\d])/$1scalar$2/g;
    s/([^\$\w\d])wwWwWWW([^\w\d])/$1rindex$2/g;
    s/([^\$\w\d])wwWwWWw([^\w\d])/$1return$2/g;
    s/([^\$\w\d])wwWwWwW([^\w\d])/$1rename$2/g;
    s/([^\$\w\d])wwWwWww([^\w\d])/$1printf$2/g;
    s/([^\$\w\d])wwWwwWW([^\w\d])/$1msgsnd$2/g;
    s/([^\$\w\d])wwWwwWw([^\w\d])/$1msgrcv$2/g;
    s/([^\$\w\d])wwWwwwW([^\w\d])/$1msgget$2/g;
    s/([^\$\w\d])wwWwwww([^\w\d])/$1msgctl$2/g;
    s/([^\$\w\d])wwwWWWW([^\w\d])/$1listen$2/g;
    s/([^\$\w\d])wwwWWWw([^\w\d])/$1length$2/g;
    s/([^\$\w\d])wwwWWwW([^\w\d])/$1gmtime$2/g;
    s/([^\$\w\d])wwwWWww([^\w\d])/$1format$2/g;
    s/([^\$\w\d])wwwWwWW([^\w\d])/$1fileno$2/g;
    s/([^\$\w\d])wwwWwWw([^\w\d])/$1exists$2/g;
    s/([^\$\w\d])wwwWwwW([^\w\d])/$1elseif$2/g;
    s/([^\$\w\d])wwwWwww([^\w\d])/$1delete$2/g;
    s/([^\$\w\d])wwwwWWW([^\w\d])/$1chroot$2/g;
    s/([^\$\w\d])wwwwWWw([^\w\d])/$1caller$2/g;
    s/([^\$\w\d])wwwwWwW([^\w\d])/$1accept$2/g;
    s/([^\$\w\d])wwwwWww([^\w\d])/$1write$2/g;