view release on metacpan or  search on metacpan

lib/Acme/DarmstadtPM/TieHash.pm  view on Meta::CPAN

use warnings;

our $VERSION = '0.5';
our $SEP     = '__Acme::DarmstadtPM::TieHash::KeySeparator__';

sub TIEHASH {
    my ($class,$code) = @_;
    
    
    my $self = {};
    bless $self,$class;
    
    $self->{HASH} = {};
    $self->{CODE} = $code;
    
    return $self;
}

sub FETCH {
    my ($self,$key) = @_;