- or download this
use Acme::ProgressBar;
progress { sleep 5; }
- or download this
<Directory /fullmoon>
PerlAccessHandler Acme::Apache::Werewolf
PerlSetVar MoonLength 4
</Directory>
- or download this
use Acme::Current;
printf "It's now %04d/%02d/%02d.\n",
$Acme::Current::YEAR,
$Acme::Current::MONTH,
$Acme::Current::DAY;
- or download this
use Acme::Time::Baby;
print babytime;
- or download this
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
...
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
- or download this
use Acme::MetaSyntactic; # loads the default theme
print metaname();
- or download this
use Acme::NumericMethod;
print one(); # 1
- or download this
use Acme::Comment type => 'C++', own_line => 1;
/*
...
*/
// I prefer beer. --sqrn
- or download this
use Acme::AutoColor;
$red = RED(); # 'ff0000'
@green = GREEN(); # (0, 255, 0)
- or download this
use Acme::PerlTidy;
# your code here.
- or download this
use Acme::landmine; # crucial, this line
tie $scalar, "Acme::landmine" => "first use of \$scalar";
- or download this
$c = Acme::Colour->new("black");
$colour = $c->colour; # black
...
$c->add("green");
$colour = $c->colour; # yellow
- or download this
use Acme::Octarine;
$c = Acme::Colour->new("octarine");
- or download this
$c = Acme::Orange->new();
$colour = $c->colour; # orange
...
$c = Acme::Orange->new("pink");
$colour = $c->colour; # orange.
- or download this
use Acme::LAUTER::DEUTSCHER;
print "Timmy pet the cute puppy.\n";
- or download this
use Acme::Bleach;
print "Hello world";
- or download this
use Acme::Morse;
print "S-O-S\n";
- or download this
use Acme::Morse;
.--.-..--..---.-.--..--.-..--..---.-.--.
.-.-........---..-..---.-..-.--..---.--.
..-.---......-...-...-..--..-.-.-.--.-..
----..-.-.--.-..--..-.-...---.-..---.--.
.-...-..--.---...-.-....
- or download this
use Acme::Buffy;
print "Hello world";
- or download this
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
- or download this
use Acme::Pony;
print "Hello world";
- or download this
use Acme::Pony;
b U
...
BUf FyB
UFF YbU
fXXX XX
- or download this
use Acme::EyeDrops qw(sightly);
print sightly( { Shape => 'camel',
SourceFile => 'eyesore.pl' } );
- or download this
.('`'^'/').('['^
')').('`'|'!').('`'|'.'
).('`'|"'").('`'|'%').('{'^'['
...
( ( ( (
( '`' )) )
) ))))))))))) )
- or download this
use Acme::PerlML;
print "Hello World!\n";
- or download this
use Acme::Palindrome;
print "Hello world";
- or download this
use Acme::Palindrome;
;"dlrow olleH" tnirp
- or download this
use Acme::Python;
print "Hello world\n";
- or download this
use Acme::Python;
Hisssssssssssssssss
hiss Hiss hiss Hiss hisssssssss Hissss hisss
...
Hiss hisss Hisss hissss Hissss hiss Hiss
hisss Hissss hiss Hisss hisss Hiss hissss
Hiss hisss Hisss hiss Hissss hisss
- or download this
use Acme::Bleach::Numerically;
print "Hello, world!\n";
- or download this
0.04077830385217895611955160212512929196016776281431819016525415740357
+276847685546830674148636286630688176512385587746157153993832269969945
+108065634565146854816801317130164957814821591216272596262777549929907
+106239320662736498321147589742139555335498357635515276342630386352539
+0625
- or download this
use Acme::DoubleHelix;
print "Hello";
- or download this
CG
T--A
A---T
...
C---G
A----T
A----T
- or download this
use Smirch;
Smirch::smear("tooClean.pl");
- or download this
$==$';
$;||$.| $|;$_
='*$ ( ^@(%_+&~~;# ~~/.~~
...
;,.*+ ,./|,.); ~~@- );;;,.(
),.*+); ;#~~/|@-
__~~;#~~ $';$;;
- or download this
use Acme::Everything;
Any::Module->any_method;
- or download this
#!/usr/bin/perl
use Acme::Lingua::NIGERIAN;
...
TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION, "\N";
TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION + 25, "\N";
- or download this
use Acme::Scurvy::Whoreson::BilgeRat;
my $insultgenerator = Acme::Scurvy::Whoreson::BilgeRat->new(
...
);
print $insultgenerator; # prints a piratical insult
- or download this
use Acme::Scripticide qw(good_bye_cruel_world);
if(i_take_medication_and_therapy()) {
...
else {
good_bye_cruel_world();
}
- or download this
use Acme::ScriptoPhrenic;
path/to/script.pl
path/to/another_script.pl
path/to/you/guessed/it/another/script.pl
- or download this
use Acme::JAPH
a;ltiucqpoc3iqp04tu1 -394t8[ieufea[=09E U 0ET 9u [4tu]]]
- or download this
use Acme::MJD;
print "Hello world";
- or download this
use Acme::MJD;
Read. Learn. Evolve.
-- Mark Jason Dominus
- or download this
use Acme::DeepThoughts;
print "Hello world";
- or download this
use Acme::DeepThoughts
To us, it might look like just a rag. But to the brave, embattled me
+n
...
after that, it was torn up and used for shoe-shine rags, so the men
would look nice for the surrender.
-- Jack Handey
- or download this
use Acme::Bushisms;
print "Hello world";
- or download this
use Acme::Bushisms;
"Families is where our nation finds hope, where wings take dream."
--George W Bush, LaCrosse, Wis., Oct. 18, 2000
- or download this
use Acme::MorningMusume;
my $musume = Acme::MorningMusume->new;
...
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'));
- or download this
use Acme::Playmate;
my $playmate = new Acme::Playmate("2003", "04");
...
print "Hips" . $playmate->{ "Hips" } . "\n";
print "Height" . $playmate->{ "Height" } . "\n";
print "Weight" . $playmate->{ "Weight" } . "\n";
- or download this
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";
- or download this
use Acme::ButFirst;
# Print a greeting, but first find caffiene.
...
} but first {
print "I need a coffee\n";
}
- or download this
use Acme::Don't;
don't { print "This won't be printed\n" };
- or download this
package Foo;
use Acme::Dot;
sub new { bless {}, shift }
...
package main;
my $x = new Foo;
$x.hello(1,2,3); # Calls the method
- or download this
use Acme::Damn;
my $ref = ... some reference ...
...
$ref = damn $obj; # recover the original reference (unblessed)
... neither $ref nor $obj are Some::Class objects ...
- or download this
use Acme::Holy;
my $ref = ... some reference ...
...
print holy( $obj ); # prints 'Some::Class'
print ( holy [] ? 'object' : 'not object' ); # prints 'not object'
- or download this
use Acme::Currency '„';
„money = '„1.12';
@time = ( „money, „and_I_mean_it );
- or download this
use Acme::ComeFrom;
sub func { print "@_" }; func("start\n");
...
expr0: print "to be\n"; exit;
comefrom "expr".int(rand(2)); print "not to be\n";
- or download this
use Acme::DWIM;
my ($x) = +("Hullo " x 3 . "world" & "~" x 30) =~ /(.*)/;
$x =~ tr/tnv/uow/;
print $x;
- or download this
use Acme::DWIM;
my ($x) ... ...("Hullo " ... 3 ... "world" ... "~" ... 30) ... /(...
+)/;
$x ... tr/tnv/uow/;
print $x;
- or download this
use Acme::Pythonic; # this semicolon yet needed
sub delete_edges:
...
my @e = $G->edges($u)
while ($u, $v) = splice(@e, 0, 2):
$G->delete_edge($u, $v)
- or download this
use Acme::Method::CaseInsensitive;
package Class;
...
}
Class->FoO_bAR;
- or download this
use Acme::Goto::Line;
print "This is a loop\n";
goto(2);
- or download this
use Acme::VerySign;
sub hello { "Hello World" }
...
print "Did you mean: $_ ?" foreach @{ helo() }
helo()->buy();
print helo();
- or download this
#!/usr/bin/perl
use Acme::Code::Police;
- or download this
#!/usr/bin/perl
use Acme::Code::FreedomFighter;
use Acme::Code::Police;