August 1999 Perl Hardware Store Slide #13

Constants

         sub import {
           my $name = shift or return;       
           my $value = shift;
           my $caller = caller;
           *{$caller . "::$name"} = sub () { $value };
         }


Next Copyright © 1998 M-J. Dominus