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
Lies! It does not!
Richard
Regards,
Ryan Yagatich
--
\|||/
---------0oo------( o o )------oo0----------
Ryan Yagatich (_) ryag...@gmail.com
http://www.linkedin.com/in/yagatich
-----------------------------------------