Next Tricks of the Wizards 66

Exporting a Magical Variable

     sub FETCH {
      my ($self, $key) = @_;
       $key;                        # Do NOTHING!
     }
     use Eval;
     $salary = 43_000;
     print "After your raise, you will make $Eval{$salary*1.06}.\n";

continued...


Next Copyright © 2003 M. J. Dominus