Next | The Perl Hardware Store | DC.pm Version | 18 |
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'; }
continued...
Next | Copyright © 2003 M. J. Dominus |