Help for this page

Select Code to Download

Select or download this

sub TIEHASH
{
    my $pkg = shift ;
...
        GOT   => {}
          }, $pkg ;
}

Select or download this

#!/usr/bin/perl --

...

(NewHash) $obj=(NewHash=HASH(0x225368)) tied(%foo)=(NewHash=HASH(0x225
+368))
(OneHash) $obj=(OneHash is broken) tied(%foo)=(undef)