Next The Perl Hardware Store DC.pm Version 19

Magical Exporter 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";
        # Prints ``.... will make 45580.''
     use Eval => ':';
     $salary = 43_000;
     print "After your raise, you will make $:{$salary*1.06}.\n";


Next Copyright © 2003 M. J. Dominus