On 9/25/08, Eirik Berg Hanssen <[EMAIL PROTECTED]> wrote:
> print <<STR;
> I like @{
> my $rand = rand();
> [$rand < 0.5 ? 'pie' : 'beer']
> }
> STR
>
>
> You already have a block; no need for a do-block within it.
>
>
> (The rest, others already covered.)
the "fun with perl" mailing list doesn't still exist, does it?
there's also
my $BeerOrPie;
sub BeerOrPie::TIESCALAR { bless \(my $x), 'BeerOrPie' };
sub BeerOrPie::FETCH { rand() < 0.5 ? 'pie' : 'beer'; };
tie $BeerOrPie, 'BeerOrPie';
print "I like $BeerOrPie\n";
--
"checks and balances" is not financial jargon
