Help for this page

Select Code to Download


  1. or download this
    sub new {
    my $proto = shift;
    my $class = ref ($proto) || $proto;
    my %this;
    return tie(%this, $class);
}
  2. or download this
    package FunClass;
sub new {
    my $class = shift;
...
    tie %{$this}, $class;
    return $this;
}
  3. or download this
    Destroying FunClass=HASH(0x80f173c)!
Calling DESTROY by SillyClass=HASH(0x80f600c)