Acme-EyeDrops
view release on metacpan or search on metacpan
- CPAN testers report occasional failures in test 01_mug
on Perl 5.10.0 with "Out of memory!". Don't know why.
Requires further investigation. Meanwhile, I'll try commenting
out parts of this test and see if the failures disappear.
1.54 Sun August 31 21:19:04 2008
- new shape: opera (thanks Cosimo)
- new shape: kangaroo
- new shape: moose
- new shape: moosecamel (modelled after http://irclog.perlgeek.de)
- new shape property keywords: logo, opera
- logo keyword shapes are: debian, opera, pgolf, mongers
1.55 Mon December 1 21:42:07 2008
- fixed rt #39035 "The Acme-EyeDrops Archive Contains World-Writable files"
- documentation: updated "99 Bottles of Beer" section with one stroke golf
improvement to mtve/thospel original shortest solution
1.60 Sat May 12 23:59:42 2012
- Bug fix release for upcoming Perl 5.16.0
lib/Acme/EyeDrops.pm view on Meta::CPAN
campm Horizontal banner of "cam.pm"
candle A Christmas candle
china1 Chinese characters, roughly translated as
"God is added a year of seniority; human is added a
year of age, Spring fills the universe; luck and
happiness fills the family"
coffee A cup of coffee
cricket Australia are world champions in this game
damian The Acme namespace is all his fault
dan The father of parrot
debian Debian logo (contributed by Richard Hartmann)
dipsy Teletubbies Dipsy (also london.pm infobot name)
eugene Champion Perl golfer, Drs Eugene van der Pijll
of Utrecht, Holland
eye An eye
flag_canada Canada's flag, contributed by `/anick
gelly Featured speaker at every session of Y::E 2003, Paris
golfer A golfer hitting a one iron
halloween A witch riding a broomstick
heart A heart shape contributed by `/anick
heart2 A heart shape modelled on one by Falkkin
lib/Acme/EyeDrops.pm view on Meta::CPAN
breed with them (their progeny are called camas)
london Haiku "A Day in The Life of a London Perl Monger"
map_australia Map of Australia
map_italy Map of Italy
map_japan Map of Japan
map_uk Map of United Kingdom and Ireland
map_world1 World globe, Asian view
map_world2 World globe, African view
map_world3 World globe, American view
merlyn Just another Perl hacker, aka Randal L Schwartz
mongers Perl Mongers logo
moose A moose
moosecamel A moose and a camel (modelled after http://irclog.perlgeek.de)
mosquito A mosquito
music A musical symbol
naw Naked Arm Wrestling (Y::E 2002, Munich)
opera Opera browser logo (contributed by Cosimo)
panda A panda designed by Yanni Ellen Liu
parrot Originally an April fool's joke, the joke was that
it was not a joke
pgolf Perl Golf logo (inspired by `/anick)
pony Horizontal banner of "Pony"
pony2 Picture of a Pony
pugs Horizontal banner of "Pugs"
pugs2 Picture of a Pugs dog
riding Horizontal banner of "riding"
rose A rose
santa Santa Claus playing golf
santa2 Santa Claus carrying presents
saturn The planet Saturn
schwern is my bitch
lib/Acme/EyeDrops.pm view on Meta::CPAN
perlhacker
animal
object
planet
map
flag
sport
underwear
hbanner
vbanner
logo
debian
opera
To give an example of how shape properties might be used,
to find all shapes that depict just the faces of perl hackers:
use Acme::EyeDrops qw(find_eye_shapes);
my @perlhackers = find_eye_shapes('face',
'person',
'perlhacker');
lib/Acme/EyeDrops/debian.eyp view on Meta::CPAN
description : The Debian logo
keywords : debian logo
lib/Acme/EyeDrops/mongers.eyp view on Meta::CPAN
description : Perl Mongers logo
keywords : hbanner logo
lib/Acme/EyeDrops/opera.eyp view on Meta::CPAN
description : Opera Software's Logo, contributed by cosimo@cpan.org
keywords : opera logo
author : Cosimo Streppone
authorcpanid : cosimo
lib/Acme/EyeDrops/pgolf.eyp view on Meta::CPAN
description : Perl Golf logo (inspired by `/anick)
keywords : logo
ref($h) eq 'HASH' or print "not ";
++$itest; print "ok $itest - get_eye_keywords, hash ref\n";
my @skey = sort keys %{$h};
@skey == 15 or print "not ";
++$itest; print "ok $itest - get_eye_keywords, number\n";
for my $k ('animal',
'debian',
'face',
'flag',
'hbanner',
'logo',
'map',
'object',
'opera',
'perlhacker',
'person',
'planet',
'sport',
'underwear',
'vbanner') {
shift(@skey) eq $k or print "not ";
( run in 1.539 second using v1.01-cache-2.11-cpan-49f99fa48dc )