Select Code to Download

{
    my $spec_sub = sub {
...
        validate( @_, $spec_sub->() );
    }
}

sub method {
    my $self = shift;
...
    $self->_method;
    $self->method_cleanup;
}