http://qs321.pair.com?node_id=923268


in reply to Math::Round::Var::round() takes no action when a number is not supplied

It seems to raise a perfectly valid exception for me:

sub round {
    my $self = shift;
    my $rnd = $self->{precision};
    my $number = shift;
    return(sprintf("%0.${rnd}f", $number));
};;

print round( {precision=>3}, 1.23456 );;
1.235

print round( {precision=>3}, 1 );;
1.000

print round( {precision=>3} );;
Use of uninitialized value $number in sprintf at ...
0.000

[download]

(Though quite why you'd use a module for this is beyond me?)

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom