Select Code to Download

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

$self->$meth(@_);

$meth->(@_);