In my other post I stopped just short of proposing

sub lives_and_tests_ok (&&;$) {
    my ($case, $test, $name) = @_;
    local $@;
    my $result = eval { $case->() };
    $@ ? fail($name) : $test->($result, $name);
}
[download]

because it’s somewhat confusing to read the following:

lives_and_tests_ok (
    sub { $o->answer },
    sub { is shift, 42, shift },
    "answer is 42"
);
[download]

I briefly pondered

sub lives_and_tests_ok (&&;$) {
    my ($case, $test, $name) = @_;
    local $@;
    local ($b, $a) = ($name, eval { $case->() });
    $@ ? fail($name) : $test->($result, $name);
}
[download]

but I don’t think it’s any more readable than

lives_and_tests_ok (
    sub { $o->answer },
    sub { is $a, 42, $b },
    "answer is 42"
);
[download]

Makeshifts last the longest.