view release on metacpan or  search on metacpan

DonMartin.pm  view on Meta::CPAN

package Acme::DonMartin;

use strict;
use vars qw/ $VERSION /;

$VERSION = 0.09;

use vars qw/ $thud $thuk $thump $thwa $thwak $thwat $thwip %thwip $thwit $thwock
$thwop %thwop @thwop/; $thwit=length$thwop[length($thwop[$thwat=$thwa=0])-length
($thwop[1])];$thwop=map{$thwat+=length}@thwop[do{$thwop+=length for@thwop[$thwit
..$thwit+length($thwop[6])];$thwop}..do{$thwop&=$thwa;$thwop+=length$_ for@thwop
[3..14.1592645];$thwop}];$thwa=($thwop>>length$thwop[5])<<($thwip=1<<1+1)+1;open
$thwit=undef,"+<$0" or die q=zownt thlip spoosh\n=;$thwa=chr$thwa;while(<$thwit>
){$thump.=$_;last if/^\s*use +@{[__PACKAGE__]}/}$thwak=$thump;$thud=<$thwit>;use
Compress::Zlib;$thud=~s/\s+$//;push @{$thwop{$thwip{$_}=$thwop++%$thwat}},qq{$_}
while $_=shift @thwop;$thuk=do{$thwat=$thwip^4; @thwop=split / /, $thud;!@thwop?
length($thwak):do{exists$thwip{$_}&&++$thwat for@thwop;$thwat!=@thwop}};$thwop=!
$thuk;if($thuk){for(split//,compress($thud.do{@thwop=();local$/=undef,<$thwit>})
){$thwock=$thwop{ord$_}[rand$thwip];if(length join($thwa,@thwop,$thwock)>$thwip{
q{thwak}}-$thwip{thwit}){$thwak.=join($thwa,@thwop).$/;@thwop=( );$thump=''}push
@thwop, $thwock} @thwop and do{seek $thwit, $thwop=$thwip-$thwip, $thwip=$thwop-
$thwop;print$thwit($thwak,$thump,join($thwa,@thwop),$/);seek$thwit,$thwip,$thwop
;}} else {$thwop=$thwip{qq{shpork}}-$thwip{q{shklink}};eval uncompress do{while(
<$thwit>){$thwock.=chr for map{$thwip{$_}}(/(s(?:h(?:k(?:l(?:i(?:z(?:z(?:ortch|i
tz)|(?:ort|i)ch)|k(?:sa)?|tza|nk)|o(?:(?:(?:rbbado)?r)?p|ort)|u(?:r(?:ch|tz|k)|n
k)|a(?:zitch|kle))|alo?ink|witz)?|l(?:o(?:o[kp]|r[kp]|ip)|i(?:k(?:le)?|pp)|ur[kp
]|ak)|p(?:l(?:(?:oi|e)p|iple)|i(?:kk|sh)le|o(?:oosh|rk))|a(?:[fk]|sh(?:wik)?|zza
tz|bamp)?|o(?:o(?:ka?|ga|o)|(?:mpa|ss)h)|n(?:i(?:kkle|p)|orkle)|i(?:f(?:fle)?|ka
?)|t(?:o(?:in|r)|i)k|u(?:ffle|ka)|muzorft|wika?)|p(?:l(?:a(?:z(?:[ai]tc|oos)h|p(
?:idy|ple)?|d(?:ish|unk)|sh(?:idy)?|t(?:ch)?|k)?|o(?:r(?:p(?:le)?|t(?:ch)?|k)|yd
oing|o?sh|it|p)|i(?:sh(?:idy|le)?|tch|p)|esh|urp)|r(?:o(?:in(?:g(?:(?:acho|doi)n
k)?|k)|wmmm|p)|i(?:z(?:aw|z)itz|t(?:sits|z))|a(?:zo)?t)|a(?:(?:(?:ma)?m)?p|z(?:o
osh|at)|sh(?:le)?|loosh|tz|k)?|o(?:o(?:sht?|f)|p(?:ple)?)|wa(?:p(?:po)?|ko|ng|t)
|u(?:kkonk|tz?|sh)|ma(?:mp?|p)|itza?)|k(?:r(?:o(?:i(?:nch|k)|n(?:ch|k)|o(?:ok|m)

DonMartin.pm  view on Meta::CPAN

a)k)?|(?:di)?t|ngo|ch|p)|o(?:o(?:[ot]|ka)|w(?:nt|m)|ck|t)|a(?:[pt]|(?:zi)?k|chit
ty)|w(?:ee(?:[nt]|ch)|[io]t)|(?:glu|ni)k|litz|unch|eem)|w(?:h(?:o(?:osh|mp)|i(?:
rr|sk)|a[kp]|eeah)|i(?:nk(?:ity)?|z)|a(?:[kp]|mp?)|ee(?:oooo)?|unk(?:ada)?|on[gk
])|y(?:a(?:(?:a(?:ug|c)|hha)h|(?:gga)?k|rgh?)|u(?:k(?:kle)?|g)|i(?:ng|p)|eech)|h
(?:u(?:ff(?:le|a)?|sh(?:le)?|m)|a(?:k(?:kle)?|ah|r)?|o(?:nk|ot)?|ee|ic|m)|r(?:o(
?:om(?:ba)?|w[mr]|r)|umb(?:oom|le)|r(?:rrrr|ip)|a(?:wg)?h|ipf?)|a(?:r(?:g(?:le|h
)?|argh)|h(?:weeeeee|h)|a(?:ak|rh)|ling|ooga|c?k|gh)|o(?:o(?:[fht]|o(?:[hm]|kk)|
n[kt]|ga|mp)|g(?:gock|h)|nnnnnghk)|v(?:o(?:o(?:fen|m)|w[mn])|r(?:oo(?:o?n|m)|een
)|ar?room)|u(?:m(?:p[fh]|ble)|(?:nkli)?k|[lr]p|gh)|m(?:a(?:bbit|m?p)|impah|uffle
|mm)|e(?:c(?:ch|k)|ech)|l(?:aflatch|eddle)|(?:q[uw]ac|no)k|jugarum|inkle) /xg )}
join(q..=>map{chr$thwip{$_}}split chr$thwop,$thud).$thwock}}exit;BEGIN{@thwop=do
{do{qw{ phoom doot chunk broot durp klank ho glakkle glukkle kazik splatch  glup
clip chika pak ping  whap  rumboom  kookook  flink  dokka  pwam  pwompf  chaklak
shklizzitz phoon gazoont puffa blapple tzong plapf pucka  twok  oooh  ging  spla
sputz dikka rowm oookk dooba tffp  skrunch  zap  thaploof  fwapada  blorf  tromp
klumble wamp mimpah kloink klump foosht cloink screeeezt kloong spamp  zak  flik
dripple sklurk goyng krak shkwitz gadang thwak fwop pop oomp  ploip  thoip  gark
thud flip doom zeem kachugh wunkada flof fashunk chomple shlork breep skloshitty
thluck cha  broodoot  clonk  skaproing  greedle  tink  bravo  fursh  hak  splort
fashklork fwabadap fwump thhhut slurp  spwat  glap  aling  trump  king  chompity
stoopft shpliple tika tubba  thwat  splazoosh  groink  clatta  tikka  glangadang

DonMartin.pm  view on Meta::CPAN

stroinggoink din skwappo  shooo  crugazunch  glika  fliff  spatz  zikkik  dipada
splitch wink whoosh sloople zot shklop bahoo shloop sklop  zownt  thhlorp  dakka
zunch bzzt bring shmuzorft mabbit pittoo  thoof  shkaloink  thlip  boil  kladwak
spukkonk blam vreen garunk ferrap sprazot blink  sittzle  barramm  spoosh  plurp
swizzat huff boom thwizzik haah cook goosh kachunk zgluk  fwiskitty  znik  klink
schlit plortch shiffle ta tingalinga doop swit  skreee  pitooie  floom  gasplush
klak zwot jugarum thoo umble zik argh dabomp glurk thlup spush  sproing  glurkle
klong foom fwap foon kapoooshshish shashwik ying spritz sklukle blop faglork zat
klingdinggoon shlikle daba glorgle snat bing sklizzorch kreek  sproink  poffisss
skrich zizazik hush phelop ak glikle mmm zip spazat yarg splurp fap schklurt wak
skazeech krik map kwong ploof splak sploosh kridit shik prawk chirp rumble clomp
gloot fluk whisk fump flok wap skluk yip pwok beeyoop fagroon fwam ghomp  grunch
fwip gring spladunk zock skwonk  chikaklak  bap  shpikkle  uk  klupada  splapple
spamamp sploydoing spak gurn stoink kachonk fiff skwa gasploosh agh  froom  thap
chonk gleet spwako shtoink dapada dakdik laflatch  shplep  kazak  doobada  foomp
toonk wee thhhht klang tween flif  fwipada  thuk  thubalup  zweet  plop  brrrapp
skazooch fwach shompah plunk glitch  glargle  dakkitydak  fitz  zich  dubba  ogh
thugawunk deep splishidy floba spoof garrargh slapth krunch unklik kazash roomba
shif galoon oggock fwisk karrak thwop shwika schloop  blif  doomp  boomer  sslit
bombah varoom voofen kaplak fiddit kwonk dik vroon  foowoom  gloip  leddle  thak
gloop flak skreekle plipple plorf shwik skritch krash kash gashklitz poink smash
dang shlurp gishklurk splorp thoomp fwizzish glip  splashidy  kloobada  shkliksa
shnip bloooot whomp sound dig  arg  deebe  argle  spopple  zikka  oot  ga  shlak
kakroosh sklorsh spmap dit onnnnnghk bloop pow  plak  rowr  skrawk  thwuk  yeech
fidip shlipp bong skrink spash shklitza blamp ziz foing  smak  kadoonk  spladish
fagrooosh dap sklush plink  thlik  ooh  kak  gahork  pwof  bzownt  shklunk  foof
sproingdoink arargh stoong swif ripf shlurk thump schloot swish  gaplonk  swizap
kaboomm hee floon eech dootbweet  plaf  oont  fladat  yak  shook  plobble  sreek
shpooosh kahak sizzotz klikrunk tak thwap krikit faroolana chunka koong ka dooot
shklurch shak chip growr shklizzortch flibadip klinkadink twong borfft snip spap
skroinch shklink katy sprowmmm sizzle da splork  kuk  skrazitz  clatter  skronch
blib flabadap stoof gladink schlep fushshklork winkity ror gwap teeoo eck shloip
ploop aaak ahweeeeee dow  wonk  blatch  sazzikk  umpf  glunk  tood  shpork  tonk
fwaddapp koff ack spmam  glorkle  zween  sklazoncho  dooma  toong  crash  shooga