Next | The Perl Hardware Store | DC.pm Version | 19 |
sub FETCH { my ($self, $key) = @_; $key; # Do NOTHING! }
What was that all about?
use Eval;
$salary = 43_000; print "After your raise, you will make $Eval{$salary*1.06}.\n";
# Prints ``.... will make 45580.''
If you don't like the syntax, you can change it a little:
use Eval => ':';
$salary = 43_000; print "After your raise, you will make $:{$salary*1.06}.\n";
We'll see a variation on this later this evening
Next | Copyright © 2003 M. J. Dominus |