my ($self,...) = @_;
...
my $c_next = $self->{state} = \&stateReadLit; # keep track
goto &{$c_next};