Help for this page

Select Code to Download


  1. or download this
    
package hashobject;
...
  return(bless($self, $class));
}
  2. or download this
    
my $obj = new hashobject;
...
$obj->{variablee} = 'bar';  # TYPO...
print $obj->{variable};  # Prints 'foo'
  3. or download this
    
package pseudohashobject;
...
  return($self);
}
  4. or download this
    my $obj = new pseudohashobject;
$obj->{variablee} = 'bar';  # TYPO
print $obj->{variable};