view release on metacpan or  search on metacpan

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

package Acme::W;
use strict;
use warnings;
use Filter::Simple;
our $VERSION = '0.03';

FILTER_ONLY code_no_comments => sub {
    s/([^\$\w\d])getprotobynumber([^\w\d])/$1WWWWWWw$2/g;
    s/([^\$\w\d])getprotobyname([^\w\d])/$1WWWWWwW$2/g;
    s/([^\$\w\d])getservbyport([^\w\d])/$1WWWWWww$2/g;
    s/([^\$\w\d])getservbyname([^\w\d])/$1WWWWwWW$2/g;
    s/([^\$\w\d])gethostbyname([^\w\d])/$1WWWWwWw$2/g;
    s/([^\$\w\d])gethostbyaddr([^\w\d])/$1WWWWwwW$2/g;
    s/([^\$\w\d])getnetbyname([^\w\d])/$1WWWWwww$2/g;
    s/([^\$\w\d])getnetbyaddr([^\w\d])/$1WWWwWWW$2/g;
    s/([^\$\w\d])setprotoent([^\w\d])/$1WWWwWWw$2/g;
    s/([^\$\w\d])setpriority([^\w\d])/$1WWWwWwW$2/g;
    s/([^\$\w\d])getsockname([^\w\d])/$1WWWwWww$2/g;
    s/([^\$\w\d])getprotoent([^\w\d])/$1WWWwwWW$2/g;
    s/([^\$\w\d])getpriority([^\w\d])/$1WWWwwWw$2/g;
    s/([^\$\w\d])getpeername([^\w\d])/$1WWWwwwW$2/g;
    s/([^\$\w\d])endprotoent([^\w\d])/$1WWWwwww$2/g;
    s/([^\$\w\d])__PACKAGE__([^\w\d])/$1WWwWWWW$2/g;
    s/([^\$\w\d])socketpair([^\w\d])/$1WWwWWWw$2/g;
    s/([^\$\w\d])setsockopt([^\w\d])/$1WWwWWwW$2/g;
    s/([^\$\w\d])setservent([^\w\d])/$1WWwWWww$2/g;
    s/([^\$\w\d])sethostent([^\w\d])/$1WWwWwWW$2/g;
    s/([^\$\w\d])getsockopt([^\w\d])/$1WWwWwWw$2/g;
    s/([^\$\w\d])getservent([^\w\d])/$1WWwWwwW$2/g;
    s/([^\$\w\d])gethostent([^\w\d])/$1WWwWwww$2/g;
    s/([^\$\w\d])endservent([^\w\d])/$1WWwwWWW$2/g;
    s/([^\$\w\d])endhostent([^\w\d])/$1WWwwWWw$2/g;
    s/([^\$\w\d])wantarray([^\w\d])/$1WWwwWwW$2/g;
    s/([^\$\w\d])setnetent([^\w\d])/$1WWwwWww$2/g;
    s/([^\$\w\d])rewinddir([^\w\d])/$1WWwwwWW$2/g;
    s/([^\$\w\d])quotemeta([^\w\d])/$1WWwwwWw$2/g;
    s/([^\$\w\d])prototype([^\w\d])/$1WWwwwwW$2/g;
    s/([^\$\w\d])localtime([^\w\d])/$1WWwwwww$2/g;
    s/([^\$\w\d])getnetent([^\w\d])/$1WwWWWWW$2/g;
    s/([^\$\w\d])endnetent([^\w\d])/$1WwWWWWw$2/g;
    s/([^\$\w\d])UNITCHECK([^\w\d])/$1WwWWWwW$2/g;
    s/([^\$\w\d])truncate([^\w\d])/$1WwWWWww$2/g;
    s/([^\$\w\d])syswrite([^\w\d])/$1WwWWwWW$2/g;
    s/([^\$\w\d])shutdown([^\w\d])/$1WwWWwWw$2/g;
    s/([^\$\w\d])shmwrite([^\w\d])/$1WwWWwwW$2/g;
    s/([^\$\w\d])setpwent([^\w\d])/$1WwWWwww$2/g;
    s/([^\$\w\d])setgrent([^\w\d])/$1WwWwWWW$2/g;
    s/([^\$\w\d])readpipe([^\w\d])/$1WwWwWWw$2/g;
    s/([^\$\w\d])readlink([^\w\d])/$1WwWwWwW$2/g;
    s/([^\$\w\d])readline([^\w\d])/$1WwWwWww$2/g;
    s/([^\$\w\d])getpwuid([^\w\d])/$1WwWwwWW$2/g;
    s/([^\$\w\d])getpwnam([^\w\d])/$1WwWwwWw$2/g;
    s/([^\$\w\d])getpwent([^\w\d])/$1WwWwwwW$2/g;
    s/([^\$\w\d])getlogin([^\w\d])/$1WwWwwww$2/g;
    s/([^\$\w\d])getgrnam([^\w\d])/$1WwwWWWW$2/g;
    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;
    s/([^\$\w\d])sprintf([^\w\d])/$1wWWWwwW$2/g;
    s/([^\$\w\d])shmread([^\w\d])/$1wWWWwww$2/g;
    s/([^\$\w\d])setpgrp([^\w\d])/$1wWWwWWW$2/g;
    s/([^\$\w\d])seekdir([^\w\d])/$1wWWwWWw$2/g;
    s/([^\$\w\d])reverse([^\w\d])/$1wWWwWwW$2/g;
    s/([^\$\w\d])require([^\w\d])/$1wWWwWww$2/g;
    s/([^\$\w\d])readdir([^\w\d])/$1wWWwwWW$2/g;
    s/([^\$\w\d])package([^\w\d])/$1wWWwwWw$2/g;
    s/([^\$\w\d])opendir([^\w\d])/$1wWWwwwW$2/g;
    s/([^\$\w\d])lcfirst([^\w\d])/$1wWWwwww$2/g;
    s/([^\$\w\d])getppid([^\w\d])/$1wWwWWWW$2/g;
    s/([^\$\w\d])getpgrp([^\w\d])/$1wWwWWWw$2/g;
    s/([^\$\w\d])foreach([^\w\d])/$1wWwWWwW$2/g;
    s/([^\$\w\d])defined([^\w\d])/$1wWwWWww$2/g;
    s/([^\$\w\d])default([^\w\d])/$1wWwWwWW$2/g;
    s/([^\$\w\d])dbmopen([^\w\d])/$1wWwWwWw$2/g;
    s/([^\$\w\d])connect([^\w\d])/$1wWwWwwW$2/g;
    s/([^\$\w\d])binmode([^\w\d])/$1wWwWwww$2/g;
    s/([^\$\w\d])__END__([^\w\d])/$1wWwwWWW$2/g;
    s/([^\$\w\d])DESTROY([^\w\d])/$1wWwwWWw$2/g;
    s/([^\$\w\d])values([^\w\d])/$1wWwwWwW$2/g;
    s/([^\$\w\d])unpack([^\w\d])/$1wWwwWww$2/g;
    s/([^\$\w\d])unlink([^\w\d])/$1wWwwwWW$2/g;
    s/([^\$\w\d])unless([^\w\d])/$1wWwwwWw$2/g;
    s/([^\$\w\d])system([^\w\d])/$1wWwwwwW$2/g;