Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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.

¤

Replies are listed 'Best First'.
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?
marioroy MCE 1.830 is completed. I will release it after completing MCE::Shared.
marioroy concurrent Tie::File among many workers is possible via MCE::Shared.
marioroy Ditto for DB_File, BerkeleyDB, etc. ;-)

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (2)
As of 2017-08-18 07:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Who is your favorite scientist and why?



























    Results (296 votes). Check out past polls.

    Notices?