Basset::Machine::State - used to create machine states.
Jim Thomason, jim@jimandkoka.com
Read the pod on Basset::Machine for more information on machines. Basset::Machine::State is a mostly abstract superclass for states defined to work with machines.
package Some::Machine::Foozle;
use base 'Basset::Machine::State';
sub main {
my $self = shift;
my $machine = $self->machine;
#do interesting things.
return $machine->transition('beezle');
}
states live under their machine ('My::Machine' requires 'My::Machine::State1', 'My::Machine::State2', etc.) and are entered via the method ->main, which the machine calls when the state is entered.
The machine associated with this state.
abstract super method. You will need to override this with the code for your state. This implementation only aborts the machine.
