view release on metacpan or  search on metacpan

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

 universe that is the present work, merely indicative of the site's
 location and visual perception, or does it suggest the bra's former
 resident once furtively enjoyed a rhythmic dance of long gliding
 steps and sudden pauses with the artist? The viewer will no doubt
 at this point recall that the word "tango" rhymes with "mango" and
 thereby grasp the semantic thrust of the work's title. However, the
 installation itself has even more to reveal when the particularly
 observant viewer speculates on the site's central device being
 strapped to its current owner's chiseled torso.

 This work is extremely fragile. Please do not touch.

=head2 Love Birds

My Dark Tunnels teammate Taffy is devoted to, and firmly believes in,
a love calculator web site where you type in two names and it reports
your love compatibility.

Accordingly, the love compatibility of our entire team was calculated,
and found to be disappointingly low, with one notable exception.
Taffy and Muss recorded an astonishingly high love compatibility

t/13_to.t  view on Meta::CPAN

my $eyedrops_pm = Acme::EyeDrops::slurp_yerself();
my $elen = length($eyedrops_pm);
$elen > 50000 or print "not ";
++$itest; print "ok $itest - slurp_yerself length is $elen\n";
my $nlines = $eyedrops_pm =~ tr/\n//;
$nlines > 1000 or print "not ";
++$itest; print "ok $itest - slurp_yerself line count is $nlines\n";

# XXX: could add MD5 checksum test here.
# XXX: beware above test is fragile when testing auto-generated EyeDrops.pm
#      (as is done by 19_surrounds.t)

# -----------------------------------------------------------------------
# get_eye_dir() tests.

my $eyedir = get_eye_dir();
$eyedir or print "not ";
++$itest; print "ok $itest - get_eye_dir sane\n";
-d $eyedir or print "not ";
++$itest; print "ok $itest - get_eye_dir dir\n";