view release on metacpan or  search on metacpan

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

=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
of ninety nine percent, the highest ever recorded!

As a tribute to their affectionate and touching bromance, I wrote this program:

    use Acme::EyeDrops qw(sightly get_eye_string hjoin_shapes);
    print sightly( { ShapeString   => hjoin_shapes(3, (get_eye_string('heart2'))x2),
                     SourceString => "Muss and Taffy have 99% Love Compatibility\n",
                     Regex        => 1,
                     Print        => 1 } );

to generate: