package hashobject;
sub new {
my ($class) = @_;
$class = ref($class) || $class;
my $self = {};
$self->{variable} = 'foo';
return(bless($self, $class));
}
####
my $obj = new hashobject;
$obj->{variablee} = 'bar'; # TYPO...
print $obj->{variable}; # Prints 'foo'
##
##
package pseudohashobject;
use fields qw(variable);
sub new {
my ($class) = @_;
$class = ref($class) || $class;
my $self = bless([\%FIELDS], $class]);
$self->{variable} = 'foo';
return($self);
}
##
##
my $obj = new pseudohashobject;
$obj->{variablee} = 'bar'; # TYPO
print $obj->{variable};