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

Re: Aaah, spring (A Very Special Perlmonks Contest)

by Chmrr (Vicar)
on Apr 17, 2002 at 22:05 UTC ( #160024=note: print w/replies, xml ) Need Help??

in reply to Aaah, spring (A Very Special Perlmonks Contest)

$thou = "romeo"; my $self = "juliet"; if ($thou, knowest($night{mask} => my $face) ) { } else { "maiden blush", bepaint(my $cheek) for (msgget $thou => "tonight"); } fain($self, dwell => 'form') .. fain (fain ( ! msgsnd tonight => $self, said)); undef $compliment;! $thou->love('me')? tell me eq 'Ay' : $self, take($thou => $word); 'yet' if $thou->swear - $thou == undef; @lovers{perjuries}, Jove('laughs'). 0, Romeo; if ($thou->love) { tell $thou->love('faithfully')} sub AUTOLOAD {} package romeo; sub swear {"to"} sub love {"juliet"} 1 or die; __END__ Juliet's monologue from Act 2, Scene 2 ---------------------------------------- Thou knowest the mask of night is on my face; Else would a maiden blush bepaint my cheek For that which thou hast heard me speak tonight. Fain would I dwell on form -- fain, fain deny What I have spoken; but farewell compliment! Dost thou love me? I know thou wilt say 'Ay'; And I will take thy word. Yet, if thou swear'st, Thou may prove false. At lovers' perjuries, They say Jove laughs. O gentle Romeo, If thou dost love, pronounce it faithfully.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://160024]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2018-06-21 04:37 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.