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;