http://www.perlmonks.org?node_id=177973

A mighty pain to love it is, and it is a pain that pain to miss;
but of all pains the greatest pain, it is to love, but love in vain...
-- Abraham, Cowley 
if ($in_love) 
{ 
    if (!&love) { &pain(1) }
    else { &pain(0) }
}
else 
{ 
    { &pain(0) }
}

sub pain
{
    $love_in_vain = shift;
    $pain++;
    &pain(1) if $love_in_vain;
}

[download]

Replies are listed 'Best First'.
LOve for Lego Coders ;0)
by frankus (Priest) on Jun 28, 2002 at 11:36 UTC 
    package Love;

use Sex qw( pain Mighty_Pain ); # but I try ;)

package Mighty_Pain;
@ISA = qw( pain );

package pain;

sub loss($) {
   # my pity, my pain, myself
   my ($pity,$pains,$self) = (@_,{});
   # When we take pains, we go to any length
   $self->{$_} = length for @$pains;
   # When it goes wrong, it's so easy
   bless $self, $pity;
   # three enter; one may leave. When you're ready
   $self;   
}

    [download]
    ----------------------------------------------------------- 
    use Love;
use Data::Dumper;

@price = <DATA>;
$love = Love->loss(\@price);

__END__
SU Priviledges
Net Access
Using Linux

    [download]

    --

    Brother Frankus.

    ¤

[reply]
[d/l]
[select]
      Unsure where Data::Dumper comes into play.. could you please explain?
[reply]
Re: just another love poem
by NaSe77 (Monk) on Jul 02, 2002 at 16:05 UTC
    very simple but also very true - i like it

    ----
    NaSe
    :x

[reply]
      I'like it too... may i add some ?? if (love) { print "i'm the happiest man in the world"; } Iceboxkid
[reply]
        nice poem ;)
[reply]

Back to Perl Poetry