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