Acme-W

 view release on metacpan or  search on metacpan

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

	open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
	my $string = do { local $/; <FH> };
	close FH or die "close($_[0]): $!";
	return $string;
}
END_OLD

sub _readperl {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	$string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s;
	$string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg;
	return $string;
}

sub _readpod {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	return $string if $_[0] =~ /\.pod\z/;
	$string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg;
	$string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg;

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

    s/([^\$\w\d])getgrgid([^\w\d])/$1WwwWWWw$2/g;
    s/([^\$\w\d])getgrent([^\w\d])/$1WwwWWwW$2/g;
    s/([^\$\w\d])formline([^\w\d])/$1WwwWWww$2/g;
    s/([^\$\w\d])endpwent([^\w\d])/$1WwwWwWW$2/g;
    s/([^\$\w\d])endgrent([^\w\d])/$1WwwWwWw$2/g;
    s/([^\$\w\d])dbmclose([^\w\d])/$1WwwWwwW$2/g;
    s/([^\$\w\d])continue([^\w\d])/$1WwwWwww$2/g;
    s/([^\$\w\d])closedir([^\w\d])/$1WwwwWWW$2/g;
    s/([^\$\w\d])__LINE__([^\w\d])/$1WwwwWWw$2/g;
    s/([^\$\w\d])__FILE__([^\w\d])/$1WwwwWwW$2/g;
    s/([^\$\w\d])__DATA__([^\w\d])/$1WwwwWww$2/g;
    s/([^\$\w\d])AUTOLOAD([^\w\d])/$1WwwwwWW$2/g;
    s/([^\$\w\d])waitpid([^\w\d])/$1WwwwwWw$2/g;
    s/([^\$\w\d])unshift([^\w\d])/$1WwwwwwW$2/g;
    s/([^\$\w\d])ucfirst([^\w\d])/$1Wwwwwww$2/g;
    s/([^\$\w\d])telldir([^\w\d])/$1wWWWWWW$2/g;
    s/([^\$\w\d])sysseek([^\w\d])/$1wWWWWWw$2/g;
    s/([^\$\w\d])sysread([^\w\d])/$1wWWWWwW$2/g;
    s/([^\$\w\d])sysopen([^\w\d])/$1wWWWWww$2/g;
    s/([^\$\w\d])syscall([^\w\d])/$1wWWWwWW$2/g;
    s/([^\$\w\d])symlink([^\w\d])/$1wWWWwWw$2/g;

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

    s/([^\$\w\d])WwwWWWw([^\w\d])/$1getgrgid$2/g;
    s/([^\$\w\d])WwwWWwW([^\w\d])/$1getgrent$2/g;
    s/([^\$\w\d])WwwWWww([^\w\d])/$1formline$2/g;
    s/([^\$\w\d])WwwWwWW([^\w\d])/$1endpwent$2/g;
    s/([^\$\w\d])WwwWwWw([^\w\d])/$1endgrent$2/g;
    s/([^\$\w\d])WwwWwwW([^\w\d])/$1dbmclose$2/g;
    s/([^\$\w\d])WwwWwww([^\w\d])/$1continue$2/g;
    s/([^\$\w\d])WwwwWWW([^\w\d])/$1closedir$2/g;
    s/([^\$\w\d])WwwwWWw([^\w\d])/$1__LINE__$2/g;
    s/([^\$\w\d])WwwwWwW([^\w\d])/$1__FILE__$2/g;
    s/([^\$\w\d])WwwwWww([^\w\d])/$1__DATA__$2/g;
    s/([^\$\w\d])WwwwwWW([^\w\d])/$1AUTOLOAD$2/g;
    s/([^\$\w\d])WwwwwWw([^\w\d])/$1waitpid$2/g;
    s/([^\$\w\d])WwwwwwW([^\w\d])/$1unshift$2/g;
    s/([^\$\w\d])Wwwwwww([^\w\d])/$1ucfirst$2/g;
    s/([^\$\w\d])wWWWWWW([^\w\d])/$1telldir$2/g;
    s/([^\$\w\d])wWWWWWw([^\w\d])/$1sysseek$2/g;
    s/([^\$\w\d])wWWWWwW([^\w\d])/$1sysread$2/g;
    s/([^\$\w\d])wWWWWww([^\w\d])/$1sysopen$2/g;
    s/([^\$\w\d])wWWWwWW([^\w\d])/$1syscall$2/g;
    s/([^\$\w\d])wWWWwWw([^\w\d])/$1symlink$2/g;

xt/01_podspell.t  view on Meta::CPAN

use Test::More;
eval q{ use Test::Spelling };
plan skip_all => "Test::Spelling is not installed." if $@;
add_stopwords(map { split /[\s\:\-]/ } <DATA>);
$ENV{LANG} = 'C';
all_pod_files_spelling_ok('lib');
__DATA__
Takashi Higashigata
dameo@cpan.org
Acme::W