Acme-EyeDrops

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	- minor change to shapes: damian, camel
	- new shape: kermit (thanks Jason)
	- new shape: pgolf (thanks `/anick)
	- fixed bug where EyeDrops sometimes generated an
	  invalid program or more shapes than it needed to
	- new test: limit2.t to verify above bug fixed
	- new test: sightly2.t
	- made sure test programs clean up all .tmp files
	- added -Mstrict to all test programs to ensure
	  they work with -w and 'use strict' too
	- localised file globals appropriately in all test programs
	- tested under Win98 and adjusted nasty.t accordingly

1.08	Sun Apr 21 16:13:18 2002

	- documentation: added sub-sections to Examples section
	- documentation: added 'Dueling Dingos' sub-section
	- minor change to shape: pgolf
	- new shape: eye
	- new shape: mosquito
	- new shape: coffee

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

    $score = 145; # no good;
    delete $stuff { I_can_do_without }
       and do $more_stuff;
    delete $even{more_stuff};
    reverse $engineer; study; eval $strategy and redo;
    write, write, write;
    delete $_{'!'}, delete $"{"@!"}, delete $@{'*'}; # must stop cursing
    use less 'characters', $durnit;
    read THE, $current, $solution;
    not 2, $bad;
    delete $white_spaces{''} until $program == glob;
    for( $all, my @troubles )
    {
        unlink 1, $character;
    }
    ARGH:
    $must, not $despair;
    $I->can(do{ $it });
    study new Idea;
    m/mmmm/m... do{able};
    kill $chickens;

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

    larry         Wall, Larry (as opposed to Russell Wall who is
                  Wall, Russ)
    larry2        Caricature of Larry contributed by Ryan King
    llama         Llamas are so closely related to camels they can
                  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

lib/Acme/EyeDrops/map_world1.eyp  view on Meta::CPAN

description  : World globe, Asian view
keywords     : map planet

lib/Acme/EyeDrops/map_world2.eyp  view on Meta::CPAN

description  : World globe, African view
keywords     : map planet

lib/Acme/EyeDrops/map_world3.eyp  view on Meta::CPAN

description  : World globe, American view
keywords     : map planet

t/14_gulp.t  view on Meta::CPAN

$prog = sightly({ Shape         => 'yanick4',
                  SourceFile    => $hellotestfile,
                  InformHandler => sub {},
                  Regex         => 1 } );
test_one('hellotest SourceFile string',
   "hello test 0\nhello test 1\nhello test 2\nhello test 3\n",
   $yanick4str x 3);

# For different ways to pass a handle, see Perl Cookbook, 2nd edition,
# Recipe 7.5:
#  1) *FH            typeglob
#  2) \*FH           ref to typeglob
#  3) *FH{IO}        I/O object

open(FH, $hellotestfile) or die "error: open '$hellotestfile': $!";
$prog = sightly({ Shape         => 'yanick4',
                  SourceHandle  => *FH,
                  InformHandler => sub {},
                  Regex         => 1 } );
close(FH) or die "error: close '$hellotestfile': $!";
test_one('hellotest SourceHandle typeglob',
   "hello test 0\nhello test 1\nhello test 2\nhello test 3\n",
   $yanick4str x 3);

open(FH, $hellotestfile) or die "error: open '$hellotestfile': $!";
$prog = sightly({ Shape         => 'yanick4',
                  SourceHandle  => \*FH,
                  InformHandler => sub {},
                  Regex         => 1 } );
close(FH) or die "error: close '$hellotestfile': $!";
test_one('hellotest SourceHandle typeglob ref',
   "hello test 0\nhello test 1\nhello test 2\nhello test 3\n",
   $yanick4str x 3);

open(FH, $hellotestfile) or die "error: open '$hellotestfile': $!";
$prog = sightly({ Shape         => 'yanick4',
                  SourceHandle  => *FH{IO},
                  InformHandler => sub {},
                  Regex         => 1 } );
close(FH) or die "error: close '$hellotestfile': $!";
test_one('hellotest SourceHandle I/O object',