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