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; }

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; }
    use Love; use Data::Dumper; @price = <DATA>; $love = Love->loss(\@price); __END__ SU Priviledges Net Access Using Linux


    Brother Frankus.


      Unsure where Data::Dumper comes into play.. could you please explain?
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


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