my $div_by_zero_ok = eval {
    0 / 0;
    1;
};

is
    $div_by_zero_ok,
    undef,
    "whatever_sub() barfs properly if dividing by zero ok";