- or download this
# Adjusted.pm 18sep14waw
...
1; # end Adjusted.pm
- or download this
# Adjusted.t 18sep14waw
...
throws_ok { Adjusted::values_summed(@vals) } $rx, $msg;
} # end for EXCEPTION
- or download this
c:\@Work\Perl\monks\perldiverx>perl Adjusted.t
ok 1 - use Adjusted;
...
ok 6 - empty values list
ok 7 - no warnings
1..7