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

Re: Cheese

by jepri (Parson)
on Dec 06, 2000 at 18:40 UTC ( #45219=note: print w/ replies, xml ) Need Help??


in reply to Cheese

I never wanted to be a cheese coder! I wanted to be a lumberjack....

#!/usr/perl/bin use Quantum::Superposition; my $shop =cheese_shop->new; my $customer = cheese_shop->new; if ( $customer->esuriant(bazouki) && $customer->terpsichorean(love) ){ if ( $shop->stock('red Leicester') ) { push $customer{shopping_cart}, 'red Leicester'); } else { if ( $shop->stock('Caerphilly') ) { push $customer{shopping_cart}, 'Caephilly'; } else { # about this point I got bored with the idea if ( $shop->stock(any('Bel Paese','Red Windsor','Stilton','Ementh +al','Gruyere','Norweigan Jarlsburg','Lipta','Lancashire','White Stilt +on','Danish Brew','Double Goucester','Cheshire','Dorset Bluveny','Bri +e, Roquefort','Pol le Veq','Port Salut','Savoy Aire','Saint Paulin',' +Carrier de lest','Bres Bleu','Bruson','Camenbert','Gouda','Edam','Cas +e Ness','Smoked Austrian','Wensleydale','Gorgonzola','I can't believe + how many cheeses Monty Python know about','Parmesan','Mozarella','Pa +per Cramer','Danish Bimbo','Toe Cheese','Czech sheep's milk','Venezue +lan Beaver Cheese','Cheddar','Illchester, the most popular cheese rou +nd here','Limburger'))) { print "Congratulations, you have discovered the hidden flaw in th +is program!" && die "Horribly"; } else { kill('owner'); }}}}
The really amazing thing is probably this page.

____________________
Jeremy
I didn't believe in evil until I dated it.


Comment on Re: Cheese
Download Code
(jeffa) Re: Re: Cheese
by jeffa (Chancellor) on Dec 06, 2000 at 21:39 UTC
    Excrementaly runny Camenbert . . .mmmmm

    Jeff

    <!-- hmmm, i wonder what Easter Egg might lie within -->

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-04-16 05:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (414 votes), past polls