Next The Perl Hardware Store DC.pm Version 18

Magical Exporter Variable

        package Eval;
        sub import {
          my ($package, $name) = @_;
          $name = 'Eval' unless defined $name;
          my %magical_hash;
          tie %magical_hash => Eval;
          my $caller = caller;
          *{$caller . '::' . $name} = \%magical_hash;
        }
        sub TIEHASH {
          my $self;
          bless \$self => 'Eval';
        }
        sub FETCH {
          my ($self, $key) = @_;
          $key;                          # Do NOTHING!
        }


Next Copyright © 2003 M. J. Dominus