Select Code to Download

use Test::Exception;
...
    { 0/0 }
    qr/Illegal division by zero/,
    "whatever_sub() throws if trying to divide by zero ok";

my $div_by_zero_ok = eval {
    0 / 0;
...
    $div_by_zero_ok,
    undef,
    "whatever_sub() barfs properly if dividing by zero ok";