sub parse {
    my $self=shift;
    my $meth = $self->{_action} || die "Missing action";

##</code><code>##

$self->$meth(@_);

##</code><code>##

$meth->(@_);