not quite the NSW State Premier

If you're an Australian, then you'd know about the chaotic state of NSW political leadership at the present point in time.

#!/usr/bin/perl

no warnings; undef $currentPremier;

our $oppositionLeader = $futurePremier; 
BEGIN { $celebrating; @publicFunction;
        $beers++;
        tell $inappropriateJoke;
        while (($beers > 6) && (@femaleCompany)) {
                if (exists {$journalist{$boyfriend}) {
                        eval { $possibilityOf; fork(); }
                } else {
                        touch $journalist;
                }
        }
        return $home;
}
sleep $untilNextDay;
print $pressDenial until $suspicions++;
seek $partyOpinion;
do `whatsBestForParty`; undef $oppositionLeader;
exit $politicalArena;
[download]

Comment on not quite the NSW State Premier Download Code

Replies are listed 'Best First'.
Re: not quite the NSW State Premier by rob_au (Abbot) on Aug 30, 2005 at 07:43 UTC
I would have thought that the test would have been `if (!exists $journalist{$boyfriend}) {` then go on to evaluate the possibility of a `fork`. But then again, I'm not in politics - My parents were married when I was conceived grin `perl -le "print unpack'N', pack'B32', '00000000000000000000001000000000'"`	[reply] [d/l] [select]
Re^2: not quite the NSW State Premier by Anonymous Monk on Aug 31, 2005 at 03:34 UTC
Nah, if the boyfriend isn't there he just jumps straight in for the touch. Some careful evaluation is needed if the boy's there tho. $beer starts off way too low. We'll never get the possiblity of a slap from a journalist that way. Needs something to bump it above 6 first. is $suspicions assumed to be a negative number if "neutral" ? Makese sense then I guess... but maybe while $suspicions-- could work too. Print a counter release until suspicions have been settled. Oh, and yes, very funny :)	[reply]
Re: not quite the NSW State Premier by singingfish (Novice) on Sep 04, 2005 at 11:10 UTC
Sorry for being in bad taste, but shouldn't the last line be: `eval {die}`	[reply] [d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks