$next_emitter = $current_emitter->transition();
print $next_emitter->emit() . "\n";

##</code><code>##

Can't locate object method "emit" via package
"Emitter=HASH(0x1016c9c0)" (perhaps you forgot to load
"Emitter=HASH(0x1016c9c0)"?) at HMM/ODCRollGenerator.pm line
100.

##</code><code>##

ref($an_emitter->transition());

##</code><code>##

ref($an_emitter)

##</code><code>##

sub transitions
{
    my $self = shift;
    if (@_)
    {
        $self->{TRANSITIONS} = shift;
        &_build_prob_table($self);
    }
    return $self->{TRANSITIONS};
}

##</code><code>##

$self->{START} = Emitter->new();
$self->{FAIR} = Emitter->new();
$self->{LOADED} = Emitter->new();
...
$self->{START}->transitions( { $self->{FAIR} => 0.5,
                               $self->{LOADED} => 0.5 } );