Select Code to Download

use Test::More 'no_plan';
use Test::Exception;

my $result;
lives_ok {$result = $o->answer} 'answer worked';
is $result, 42, 'answer returned 42';

is live{$o->answer}, 42, 'answer worked';

live
       Returns the result of the given expression if no
...
           unlike live {$o->foo}, '/fribble/', 'no fribble';

       Appropriate care must be taken.

use Sub::Uplevel;

...
    ) if $@;
    $value;
};