Perl Implementation of finite state machine where each state is a class object -

i trying build finite state machine in perl. wanting each state of finite state machine class way can instantiate these objects , use them greater control in program writing.

in each state have keep track of lot of information , code.

so make finite state machine easier program , read want able use these classes states.

now have looked class::statemachine turns 1 class fsm.

i have looked @ fsa::rules , fsm::simple not figure out way make states classes them.

does have ideas on this?