Acme-EyeDrops
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
=head2 Naked Arm Wrestling
The final auction at Y::E 2002 in Munich featured an epic athletic
contest which you can remember with:
use Acme::EyeDrops qw(sightly);
my $s = sightly( { Regex => 1,
Shape => 'naw',
Indent => 1,
SourceString => <<'NAKED_ARM_WRESTLING' } );
$/='';open$%;$x=<0>;$y=<0>;
substr($y,428,$%)=' AAAAARRRGGGHHH!!!';
map{system$^O=~Win?CLS:'clear';
print$_&1?$y:$x;sleep!$%+($_&1)}$%..9
NAKED_ARM_WRESTLING
$s =~ s/ +$//m;
print $s;
=head2 Baghdad Bob
Running this program:
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.788 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )