|
NAME
Pug -> a Mixed C/Perl implementation of a code warrior.
SYNOPSIS
my $coder = new Pug->set( 'AGE' => 25, 'LOCATION' => 'Billerica, MA USA', 'GENDER' => 'M', 'OS'=> 'Linux','Solaris', 'ROAD_BIKE'=>'Cannondale R400', 'CAR'=> 'Nope', 'SPELLING'=> 'Bad', );
GEEK CODE
-----BEGIN GEEK CODE BLOCK----- Version: 3.12 GCS/P d? s+: a- C++++$ UL++++ US++++ P+++(++++)$ L+++>++++ E--- W+++ N !o K+ w(---)$ O M--() !V PS++(+++) PE-() Y++ PGP-->++ t+@ 5++ X R++ tv-(+) b++++ DI++++ D G+ e++(*)>++++ h(--) !r-- !y+ -----END GEEK CODE BLOCK------
PERL GEEK CODE
-----BEGIN PERL GEEK CODE BLOCK----- Version: 0.01 P++(+++)>++++c-->++P6->+R+>+++M+>+++O+++>++++$MA+++>+++@ E+++PU +++BD>!C--D++S+++$X+>!WP+MO?PP!n-CO--PO-(--)>++++ o>++++G+>+++A->+++OLC++OLCC-OLJ--OLL--Ee---Ev++uL+++uB+uS+ w!m! ------END PERL GEEK CODE BLOCK------