Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

just another love poem

by Mandor (Pilgrim)
on Jun 28, 2002 at 09:45 UTC ( #177973=poem: print w/replies, xml ) Need Help??

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://177973]
Approved by higle
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2018-08-21 03:49 GMT
Find Nodes?
    Voting Booth?
    Asked to put a square peg in a round hole, I would:

    Results (197 votes). Check out past polls.