sub transitions { my $self = shift; if (@_) { $self->{TRANSITIONS} = shift; ....
Here you set the TRANSITION to the anonymous hash and here
... return $self->{TRANSITIONS};
You just return it.
-derby
update Please disregard and follow jand's advice.
In reply to Re: objects becoming unblessed?
by derby
in thread objects becoming unblessed?
by omnibus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |