I think that's close to what I did:

sub tryit (&$)
 {
 my ($code, $label)= @_;
 eval { &$code };
 if ($@) {
    my $error= $@;  # remember that in case fail() changes it.
    fail $label;
    diag "$label fails:", $error;
    }
 }
[download]

My code ends in an ok...() type statement, so if it reaches the end the tryit wrapper doesn't need to do anything. But if there is an exception, then the wrapper issues the NOT OK line. So, I don't get two tests out on success or one on failure like you seem to be illustrating re 'no_plan'.

—John