my $lives = eval {
    $some_obj->diediedie;
    1;
};
my $err = $@;
ok $lives, "We can call ->diediedie"
    or diag "Died with '$err'";