Acme-EyeDrops
view release on metacpan or search on metacpan
- test vshape.t: fixed Linux-only banner test
- Build.PL: fixed for Module::Build v0.19
1.40 Sun June 29 11:19:33 2003
- There were getting to be too many .eye files cluttering the
vitally important Acme root directory, so I moved them from
Acme directory to Acme/EyeDrops directory (if you have installed
a previous version of Acme::EyeDrops, suggest you delete old
.eye files in the Acme root directory)
- new shape: flag_canada (to mark Canada day, thanks `/anick)
- new shape: map_australia
- new shape: hipowls
- new built-in shape: all
- minor change to shape: rose
- removed demo/helloworld.pl from distribution
- removed demo/hellotest.pl from distribution
- removed demo/examples.pl from distribution
- updated test programs to not rely on demo directory
1.41 Sun July 27 18:22:04 2003
lib/Acme/EyeDrops/dan.eye
lib/Acme/EyeDrops/dan.eyp
lib/Acme/EyeDrops/debian.eye
lib/Acme/EyeDrops/debian.eyp
lib/Acme/EyeDrops/dipsy.eye
lib/Acme/EyeDrops/dipsy.eyp
lib/Acme/EyeDrops/eugene.eye
lib/Acme/EyeDrops/eugene.eyp
lib/Acme/EyeDrops/eye.eye
lib/Acme/EyeDrops/eye.eyp
lib/Acme/EyeDrops/flag_canada.eye
lib/Acme/EyeDrops/flag_canada.eyp
lib/Acme/EyeDrops/gelly.eye
lib/Acme/EyeDrops/gelly.eyp
lib/Acme/EyeDrops/golfer.eye
lib/Acme/EyeDrops/golfer.eyp
lib/Acme/EyeDrops/halloween.eye
lib/Acme/EyeDrops/halloween.eyp
lib/Acme/EyeDrops/heart.eye
lib/Acme/EyeDrops/heart.eyp
lib/Acme/EyeDrops/heart2.eye
lib/Acme/EyeDrops/heart2.eyp
lib/Acme/EyeDrops.pm view on Meta::CPAN
BannerString String to use with built-in Shape 'banner'.
Regex Regex can take the following values:
0: do not embed source program in a regex
If Regex is positive, embed the program in a regex and:
1: add a leading "use re 'eval';" for Perl 5.18+ only
2: do not add a leading "use re 'eval';"
3: add a leading "use re 'eval';"
Do not set this flag when converting complex programs.
Compact Boolean. If set, use compact sightly encoding.
Print Boolean. If set, use a print statement instead
of the default eval statement. Set this flag
when converting text files (not programs).
Binary Boolean. Set if encoding a binary file.
Text Boolean. Set if pouring unsightly text.
TextFiller Filler string used with Text attribute.
For example, TextFiller => '#'.
Gap The number of lines between successive shapes.
lib/Acme/EyeDrops.pm view on Meta::CPAN
InformHandler By default, sightly prints status of what it is
doing to STDERR; you can override this by providing
a subroutine reference taking a single inform string
argument. To shut it up, set to sub {}.
TrapEvalDie Boolean.
Add closing 'die $@ if $@' to generated program.
When an eval code block calls the die function,
the program does not die; instead the die string
is returned to eval in $@. Using this flag allows
you to convert programs that call die.
TrapWarn Boolean.
Add leading 'local $SIG{__WARN__}=sub{};' to
generated program. This shuts up some warnings.
Use this option if generated program emits
'No such signal: SIGHUP at ...' when run with
warnings enabled.
FillerVar Reference to a list of 'filler variables'.
lib/Acme/EyeDrops.pm view on Meta::CPAN
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
hipowls A pair of hip owls
japh JAPHs were invented by Randal L Schwartz in 1988
jon Kick-started the Perl 6 development effort by smashing
a standard-issue white coffee mug against a hotel wall
jon_oxer Linux Australia bigwig (contributed by Paul Fenwick)
lib/Acme/EyeDrops.pm view on Meta::CPAN
where valid keywords are:
face
person
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:
lib/Acme/EyeDrops/flag_canada.eyp view on Meta::CPAN
description : Canada's flag, contributed by `/anick
keywords : flag
# -----------------------------------------------------------------------
# find_eye_shapes() tests.
eval { find_eye_shapes() };
$@ or print "not ";
++$itest; print "ok $itest - find_eye_shapes, no params\n";
# XXX: need to update test when update shape properties.
test_one_find_eye_shapes(
'one',
[ 'flag' ],
[ 'flag_canada' ]
);
# XXX: need to update test when update shape properties.
test_one_find_eye_shapes(
'dup keyword',
[ 'flag', 'flag' ],
[ 'flag_canada' ]
);
# XXX: need to update test when update shape properties.
# This is the example from the doco that cog specifically asked for.
test_one_find_eye_shapes(
'cog',
[ 'face', 'person', 'perlhacker' ],
[ 'acme',
'adrianh',
'autrijus',
'damian',
'larry',
'larry2',
'merlyn',
'schwern2',
'simon',
'yanick' ]
);
# XXX: need to update test when update shape properties.
test_one_find_eye_shapes(
'OR',
[ 'flag OR sport' ],
[ 'cricket',
'flag_canada',
'golfer' ]
);
{
my $tmpeye = 'tmpeye.eye';
my $tmpeyp = 'tmpeye.eyp';
my $tmpeye2 = 'tmpeye2.eye';
my $tmpeyp2 = 'tmpeye2.eyp';
my $tmpeye3 = 'tmpeye3.eye';
my $tmpeyp3 = 'tmpeye3.eyp';
my $h = get_eye_keywords();
# for my $k (sort keys %{$h}) { print "k='$k' v='@{$h->{$k}}'\n" }
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',
( run in 6.165 seconds using v1.01-cache-2.11-cpan-94b05bcf43c )