Next The Identity Function 11

Function Calls in Strings

        package Eval;
        sub import {
          my $caller = caller;
          my ($package, $varname) = @_;
          $varname = 'Eval' unless defined $varname;
          my %hash;
          tie %hash => $package;
          *{"$caller\::$varname"} = \%hash;
        }
        sub FETCH { $_[1] }     #  Identity function


Next Copyright © 2001 M. J. Dominus