Acme-EyeDrops

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1.43	Sun Aug 31 17:12:55 2003

	- new shapes: alpaca, bighorn, map_italy
	- removed functions set_eye_dir, add_builtin_shape, del_builtin_shape
	  which were mistakenly added to version 1.41 (these are not really
	  necessary and change module state, which is a Bad Thing)
	- documentation: added 'twang bra-strap' to acme shape description
	- tests: merged old 13_to.t, old 12_Beer.t to new 19_surrounds.t
	         new Test::Pod test, 18_sky.t
	         11_bold.t now tested in taint mode (no banner test)
	         12_Beer.t now banner test only (not taint safe)

1.44	Sun Apr 25 19:07:41 2004

	- Bug fix release for Perl 5.8.4: some of the tests broke because
	  they were naughtily exploiting a Perl bug re use strict inside
	  (?{...}) constructions in regexps (see 01_mug.t/05_Parrot.t)
	- new shapes: map_world1, map_world2, map_world3, map_japan, map_uk
	- new shapes: music, dan, bottle3
	- Build.PL: fixed for Module::Build v0.24 (_find_file_by_type changed)

MANIFEST  view on Meta::CPAN

t/01_mug.t
t/02_shatters.t
t/03_Larry.t
t/04_Apocalyptic.t
t/05_Parrot.t
t/06_not.t
t/07_a.t
t/08_hoax.t
t/09_Gallop.t
t/10_Ponie.t
t/11_bold.t
t/12_Beer.t
t/13_to.t
t/14_gulp.t
t/15_Buffy.t
t/16_astride.t
t/17_Orange.t
t/18_sky.t
t/19_surrounds.t
t/gen.t
t/zgen.t

lib/Acme/EyeDrops.pm  view on Meta::CPAN

                     Indent       => 1,
                     SourceString => <<'END_HAIKU' } );
    Coffee mug shatters
    Larry Apocalyptic
    Parrot not a hoax

    Design, debate, sift
    Prankster Piers pawky precis
    Weekly light relief

    Gallop Ponie bold!
    Beer to gulp, Buffy astride
    Orange sky surrounds

    Lambda hugs camel
    Precocious pup productive
    Sixth pearl glorious
    END_HAIKU

producing:

t/11_bold.t  view on Meta::CPAN

#!/usr/bin/perl
# 11_bold.t (was vshape.t)
# This tests OK as taint-safe (i.e. with -Tw added to first line above).

use strict;
use Acme::EyeDrops qw(get_eye_string get_eye_shapes
                      get_builtin_shapes
                      make_triangle make_siertri
                      border_shape invert_shape reflect_shape
                      hjoin_shapes sightly
                      reduce_shape expand_shape rotate_shape);

t/19_surrounds.t  view on Meta::CPAN

   '01_mug.t',
   '02_shatters.t',
   '03_Larry.t',
   '04_Apocalyptic.t',
   '05_Parrot.t',
   '06_not.t',
   '07_a.t',
   '08_hoax.t',
   '09_Gallop.t',
   '10_Ponie.t',
   '11_bold.t',
   '12_Beer.t',
   '13_to.t',
   '14_gulp.t',
   '15_Buffy.t',
   '16_astride.t',
   '17_Orange.t',
   '18_sky.t',
);
my @tests  = map("$base/$_",  @unames);
my @ztests = map("$base/z$_", @unames);