Select Code to Download

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

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.

ref($an_emitter->transition());

ref($an_emitter)

sub transitions
{
...
    }
    return $self->{TRANSITIONS};
}

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