Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

LOve for Lego Coders ;0)

by frankus (Priest)
on Jun 28, 2002 at 11:36 UTC ( #177992=note: print w/ replies, xml ) Need Help??


in reply to just another love poem

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.

¤


Comment on LOve for Lego Coders ;0)
Select or Download Code
Re: LOve for Lego Coders ;0)
by Anonymous Monk on Jul 04, 2002 at 09:16 UTC
    Unsure where Data::Dumper comes into play.. could you please explain?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://177992]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2015-07-04 06:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (58 votes), past polls