Select Code to Download

sub FETCH { my ($this, $key)=@_;
 return $this->{'l'}{$key} if exists $this->{'l'}{$key};
...
}
Can't use an undefined value as a HASH reference at t2.pl line 27.<BR>
+<BR>
Why does pwotie's FETCH work ok with $o{0} called first, but fail when
+ $o{0}->{hi} is called first?

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

    return $this->{l}{$key};
}