use Acme::ProgressBar; progress { sleep 5; } #### PerlAccessHandler Acme::Apache::Werewolf PerlSetVar MoonLength 4 #### use Acme::Current; printf "It's now %04d/%02d/%02d.\n", $Acme::Current::YEAR, $Acme::Current::MONTH, $Acme::Current::DAY; #### use Acme::Time::Baby; print babytime; #### use 5.6; # I use our(), so 5.6 is required no 6.0; # but this was coded for perl 5, not perl 6 # and the perl 6 compat layer isn't really 5.6 # so my code breaks under 6.0 use mod_perl 1.27; # we need at least version 1.27 no mod_perl 2.0; # but mod_perl 2.0 is entirely different than 1.0 # so keep my cpan email to a minimum #### use Acme::MetaSyntactic; # loads the default theme print metaname(); #### use Acme::NumericMethod; print one(); # 1 #### use Acme::Comment type => 'C++', own_line => 1; /* if (ref $mod) { $bar->{do}->blat(msg => 'blarg'); eval { i'm sooo sick of this time for some coffee */ // I prefer beer. --sqrn #### use Acme::AutoColor; $red = RED(); # 'ff0000' @green = GREEN(); # (0, 255, 0) #### use Acme::PerlTidy; # your code here. #### use Acme::landmine; # crucial, this line tie $scalar, "Acme::landmine" => "first use of \$scalar"; #### $c = Acme::Colour->new("black"); $colour = $c->colour; # black $c->add("red"); $c->add("green"); $colour = $c->colour; # yellow #### use Acme::Octarine; $c = Acme::Colour->new("octarine"); #### $c = Acme::Orange->new(); $colour = $c->colour; # orange $c->add("orange"); # $c->colour still orange $c->add("blue"); # $c->colour still orange $c = Acme::Orange->new("pink"); $colour = $c->colour; # orange. #### use Acme::LAUTER::DEUTSCHER; print "Timmy pet the cute puppy.\n"; #### use Acme::Bleach; print "Hello world"; #### use Acme::Morse; print "S-O-S\n"; #### use Acme::Morse; .--.-..--..---.-.--..--.-..--..---.-.--. .-.-........---..-..---.-..-.--..---.--. ..-.---......-...-...-..--..-.-.-.--.-.. ----..-.-.--.-..--..-.-...---.-..---.--. .-...-..--.---...-.-.... #### use Acme::Buffy; print "Hello world"; #### use Acme::Buffy; BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy buFFY BufFy BufFY bUFfy BuFFY buffy bufFy bUffy bUffY BuFfy BuffY bUFfy BUfFY BUFFy Buffy bUffY BuFFY BUFFy BufFy BUFfy BUfFY buFfy BuffY BuFfy BUfFY bUffy buFFy BUffy bUffy #### use Acme::Pony; print "Hello world"; #### use Acme::Pony; b U fFybuf fybuFFYbuF fyBUFfYbuFf YBufFYBuFFybu FfYBUffybufFyb uFfybUffybUffyBu FfyBuFFybuFfyB UffYBUfFYbUFF yb UffybUfFYBuffyb uFfy buFfYBUffybUfFYbUffYbUF fyBUFfY BuFFyBuFFybuffyBufFybufFYbuFFYbUFfYbuF FYBu FFYBuFFybUFFyBUfFyBufFYbuffybUffYBUf FYBu FFYBuFFyBuFfYBUffyBUfFYbufFybUFfybu ffYb ufFybUFFyBuFfYBUffYBUfFYbuffybUff yb UfFYBuffyBuFFyBufFyBUfFYbuFFYb uFFYb UffyBUFfYbufFYBuF fybU ffyBufFYbUFFybu FfYb uffyBu FfybuF FYBU fFyBUFF YbUfF yBu ffY buF FYbuF fyb Uff yBu FFY BUf FyB UFF YbU fXXX XX #### use Acme::EyeDrops qw(sightly); print sightly( { Shape => 'camel', SourceFile => 'eyesore.pl' } ); #### .('`'^'/').('['^ ')').('`'|'!').('`'|'.' ).('`'|"'").('`'|'%').('{'^'[' ).''. ('[' ^'(' ).( '`'| '+' ).+( ( '[' )^(( ( '"' )))) .( ( '{' )^(( ( ( '[' ))) )) .( '[' ^(( (( ( '(' ))) ))). ( '[' ^(( '.') ) ).( '[' ^')' ) .+( '[' ^(')')).( ( '`' )|+ (( ( (( '/' )) ) )) ).( ( ( (( '[' ) )))^+ '.' ) .( '`' | '.').('`'|'$').('['^'(').('!'^('+')).( '!' ^'+').("\`"^ "\,").( ( ( "\`"))| ( '!' ) ) .+( '`' |+ ( ( (( '-' ))) ) ).( ( ( '`'))|'"').( ( ( '`'))|'$').( ( '`' ) | ( ( ( (( '!' ) ) ) )) ) .( ( '{')^ ( ( (( ( (( ( ( ( ( ( ( (( ( '[' ))))))))))))))) ) ).('`'|'('). +( ( ( ( ( ( ( ( ( ( ( ( ( '[' ) ) ) ))) )) ) ) ) )^'.').('`'|"'").('[' ^ ( ( '('))).('{'^'[').(('`')| ( ( ( '#')))).('`'|'!').('`'|'-' ) . ( "\`"| '%').('`'|',') .''. ( ( ( '!') ) ^ '+' ) .( '{' ^'+').('['^')'). ((( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( '`' )) ) ) ))))))))))) ) #### use Acme::PerlML; print "Hello World!\n"; #### use Acme::Palindrome; print "Hello world"; #### use Acme::Palindrome; ;"dlrow olleH" tnirp #### use Acme::Python; print "Hello world\n"; #### use Acme::Python; Hisssssssssssssssss hiss Hiss hiss Hiss hisssssssss Hissss hisss Hiss hisss Hissss hiss Hiss hisss Hiss hiss Hisss hisss Hissss hiss Hisss hissss Hiss hiss Hissss hisssssss Hiss hissss Hiss hissss Hiss hissssss Hiss hisss Hiss hiss Hiss hiss Hiss hisss Hisss hissss Hisss hiss Hisss hissss Hisss hiss Hisss hiss Hisssss hiss Hisss hisssssss Hiss hisss Hissss hiss Hiss hiss Hiss hiss Hisssss hiss Hisss hisss Hiss hisss Hissss hissss Hisss hiss Hisss hissss Hiss hisss Hisss hissss Hissss hiss Hiss hisss Hissss hiss Hisss hisss Hiss hissss Hiss hisss Hisss hiss Hissss hisss #### use Acme::Bleach::Numerically; print "Hello, world!\n"; #### 0.040778303852178956119551602125129291960167762814318190165254157403572768476855468306741486362866306881765123855877461571539938322699699451080656345651468548168013171301649578148215912162725962627775499299071062393206627364983211475897421395553354983576355152763426303863525390625 #### use Acme::DoubleHelix; print "Hello"; #### CG T--A A---T A----T C----G T----A A---T G--C AT CG C--G G---C G----C C----G A----T C---G G--C TA CG C--G A---T A----T A----T A----T T---A G--C CG AT T--A G---C G----C C----G C----G G---C C--G TA CG G--C A---T G----C T----A G----C A---T A--T CG AT C--G A---T C----G A----T G----C A---T A--T GC CG A--T T---A G----C G----C G----C C---G G--C AT AT C--G A---T G----C C----G T----A G---C T--A TA CG G--C G---C G----C T----A G----C A---T A--T CG AT A--T G---C T----A G----C C----G A---T T--A GC GC C--G T---A G----C G----C C----G C---G G--C CG TA C--G G---C T----A G----C C----G G---C A--T AT CG A--T A---T G----C T----A G----C T---A T--A CG GC A--T A---T C----G A----T C----G A---T C--G GC CG A--T T---A G----C G----C G----C C---G G--C GC AT C--G G---C T----A C----G C----G G---C A--T AT CG A--T G---C A----T C----G G----C A---T T--A CG GC A--T T---A C----G G----C A----T A---T C--G AT AT G--C T---A G----C A----T C----G C---G G--C GC CG C--G G---C T----A A----T T----A G---C T--A TA TA A--T C---G A----T C----G A----T T---A C--G TA AT C--G C---G A----T A----T #### use Smirch; Smirch::smear("tooClean.pl"); #### $==$'; $;||$.| $|;$_ ='*$ ( ^@(%_+&~~;# ~~/.~~ ;_);;.);;#) ;~~~~;_,.~~,.* +,./|~ ~;_);@-, .;.); ~ ~,./@@-__);@-);~~,.*+,. /|);;;~~@-~~~~;;(),. ;.,./@,./@,.;_~~@-););,. ;_);~~,./@,.;;;./@,./ |~~~~;#-(@-__@-__&$#%^';$__ ='`'&'&';$___="````" |"$[`$["|'`%",';$~=("$___$__-$[``$__"| "$___"| ("$___$__-$[.%")).("'`"|"'$["|"'#"). '/.*?&([^&]*)&.*/$'.++$=.("/``"|"/$[`"|"/#'").(";`/[\\`\\`$__]//`;" |";$[/[\\$[\\`$__]//`;"|";#/[\\\$\\.$__]//'").'@:=("@-","/.", "~~",";#",";;",";.",",.",");","()","*+","__","-(","/@",".%","/|", ";_");@:{@:}=$%..$#:;'.('`'|"$["|'#')."/(..)(..)/".("```"|"``$["| '#("').'(($:{$'.$=.'}<<'.(++$=+$=).')|($:{$'.$=.'}))/'.("```;"| "``$[;"|"%'#;").("````'$__"|"%$[``"|"%&!,").${$[};`$~$__>&$=`;$_= '*$(^@(%_+&@-__~~;#~~@-;.;;,.(),./.,./|,.-();;#~~@-);;;,.;_~~@-,./., ./@,./@~~@-);;;,.(),.;.~~@-,.,.,.;_,./@,.-();;#~~@-,.;_,./|~~@-,. ,.);););@-@-__~~;#~~@-,.,.,.;_);~~~~@-);;;,.(),.*+);;# ~~@-, ./|,.*+,.,.);;;);*+~~@-,.*+,.;;,.;.,./.~~@-,.,.,.;_) ;~~~ ~@-,.;;,.;.,./@,./.);*+,.;.,.;;@-__~~;#~~@-,.;;,.* +);; #);@-,./@,./.);*+~~@-~~.%~~.%~~@-;;__,. /.);;#@- __@- __ ~~;;);/@;#.%;#/.;#-(@-__~~;;;.;_ ;#.%~~~~ ;;() ,.;.,./@,. /@,.;_~~@- ););,.;_ );~~,./ @,. ;;;./@,./| ~~~~;#-(@- __,.,.,. ;_);~~~ ~@ -~~());; #);@-,./@, .*+);;; ~~@-~~ );~~);~~ *+~~@-);-( ~~@-@-_ _~~@- ~~@-);; #,./@,.;., .;.);@ -~~@-; #/.;#-( ~~@-@-__ ~~@-~~ @-);@ -);~~, .*+,./ |);;;~ ~@-~~ ;;;.; _~~@-@ -__);. %;#-( @-__@ -__~~;# ~~@-;; ;#,. ;_,.. %);@-,./@, .*+, ..%, .;.,./|) ;;;) ;;#~ ~@-,.*+,. ,.~~ @-); *+,.;_);;.~ ~);); ~~,.; .~~@-);~~,.;., ./.,.; ;,.*+ ,./|,.); ~~@- );;;,.( ),.*+); ;#~~/|@- __~~;#~~ $';$;; #### use Acme::Everything; Any::Module->any_method; #### #!/usr/bin/perl use Acme::Lingua::NIGERIAN; DEAR SIR, I AM THE SON OF LATE PRESIDENT ONE-OR-THE-OTHER OF NIGERIA. TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT "H!!!ELLO N!!!IGERIA\N"; TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION, "\N"; TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION + 25, "\N"; #### use Acme::Scurvy::Whoreson::BilgeRat; my $insultgenerator = Acme::Scurvy::Whoreson::BilgeRat->new( language => 'pirate' ); print $insultgenerator; # prints a piratical insult #### use Acme::Scripticide qw(good_bye_cruel_world); if(i_take_medication_and_therapy()) { print "Take that Tom Cruise, you wacky weirdo, tell Jackson howdy."; } else { good_bye_cruel_world(); } #### use Acme::ScriptoPhrenic; path/to/script.pl path/to/another_script.pl path/to/you/guessed/it/another/script.pl #### use Acme::JAPH a;ltiucqpoc3iqp04tu1 -394t8[ieufea[=09E U 0ET 9u [4tu]]] #### use Acme::MJD; print "Hello world"; #### use Acme::MJD; Read. Learn. Evolve. -- Mark Jason Dominus #### use Acme::DeepThoughts; print "Hello world"; #### use Acme::DeepThoughts To us, it might look like just a rag. But to the brave, embattled men of the fort, it was more than that. It was a flag of surrender. And after that, it was torn up and used for shoe-shine rags, so the men would look nice for the surrender. -- Jack Handey #### use Acme::Bushisms; print "Hello world"; #### use Acme::Bushisms; "Families is where our nation finds hope, where wings take dream." --George W Bush, LaCrosse, Wis., Oct. 18, 2000 #### use Acme::MorningMusume; my $musume = Acme::MorningMusume->new; # retrieve the members on their activities my @members = $musume->members; # retrieve all my @active_members = $musume->members('active'); my @graduate_members = $musume->members('graduate'); my @at_some_time_members = $musume->members(Date::Simple->new('2001-01-01')); #### use Acme::Playmate; my $playmate = new Acme::Playmate("2003", "04"); print "Details for playmate " . $playmate->{ "Name" } . "\n"; print "Birthdate" . $playmate->{ "BirthDate" } . "\n"; print "Birthplace" . $playmate->{ "BirthPlace" } . "\n"; print "Bust" . $playmate->{ "Bust" } . "\n"; print "Waist" . $playmate->{ "Waist" } . "\n"; print "Hips" . $playmate->{ "Hips" } . "\n"; print "Height" . $playmate->{ "Height" } . "\n"; print "Weight" . $playmate->{ "Weight" } . "\n"; #### use Data::Dumper; use Acme::Your "Data::Dumper"; your $Varname; # This is really $Data::Dumper::Varname print "The default variable name for DD is $Varname"; #### use Acme::ButFirst; # Print a greeting, but first find caffiene. { print "Good morning!\n"; } but first { print "I need a coffee\n"; } #### use Acme::Don't; don't { print "This won't be printed\n" }; #### package Foo; use Acme::Dot; sub new { bless {}, shift } sub hello { print "Hi there! (@_)\n" } package main; my $x = new Foo; $x.hello(1,2,3); # Calls the method #### use Acme::Damn; my $ref = ... some reference ... my $obj = bless $ref , 'Some::Class'; ... do something with your object ... $ref = damn $obj; # recover the original reference (unblessed) ... neither $ref nor $obj are Some::Class objects ... #### use Acme::Holy; my $ref = ... some reference ... my $obj = bless $ref , 'Some::Class'; print holy( $obj ); # prints 'Some::Class' print ( holy [] ? 'object' : 'not object' ); # prints 'not object' #### use Acme::Currency '„'; „money = '„1.12'; @time = ( „money, „and_I_mean_it ); #### use Acme::ComeFrom; sub func { print "@_" }; func("start\n"); print "won't happen\n"; comefrom &func; print "branch 1\n"; exit; comefrom &func; print "branch 2\n"; label: print "won't happen either\n"; comefrom label; print "branch 2.1\n"; exit; comefrom label; print "branch 2.2\n"; expr0: print "to be\n"; exit; comefrom "expr".int(rand(2)); print "not to be\n"; #### use Acme::DWIM; my ($x) = +("Hullo " x 3 . "world" & "~" x 30) =~ /(.*)/; $x =~ tr/tnv/uow/; print $x; #### use Acme::DWIM; my ($x) ... ...("Hullo " ... 3 ... "world" ... "~" ... 30) ... /(...)/; $x ... tr/tnv/uow/; print $x; #### use Acme::Pythonic; # this semicolon yet needed sub delete_edges: my $G = shift while my ($u, $v) = splice(@_, 0, 2): if defined $v: $G->delete_edge($u, $v) else: my @e = $G->edges($u) while ($u, $v) = splice(@e, 0, 2): $G->delete_edge($u, $v) #### use Acme::Method::CaseInsensitive; package Class; sub foo_bar { print "it works" } Class->FoO_bAR; #### use Acme::Goto::Line; print "This is a loop\n"; goto(2); #### use Acme::VerySign; sub hello { "Hello World" } print helo(); print "Did you mean: $_ ?" foreach @{ helo() } helo()->buy(); print helo(); #### #!/usr/bin/perl use Acme::Code::Police; #### #!/usr/bin/perl use Acme::Code::FreedomFighter; use Acme::Code::Police;