- log(.9995) / log(10) # 3 digits rounding up
+ 1e-15 # float imprecision
);
my $float = $_[0] !~ /^0*[-0-9]{1,3}$/;
- log(.9995) / log(10) # 3 digits rounding up
+ 1e-15 # float imprecision
);
my $float = $_[0] !~ /^0*[-0-9]{1,3}$/;
$float && ($unit % 3) == ($unit < 0), # tenths
$_[0] / 1000 ** int($unit/3), # number
$#{$opt{units}} * 1.5 < abs $unit ? "e$unit" : $opt{units}->[$unit/3]
$float && ($unit % 3) == ($unit < 0), # tenths
$_[0] / 1000 ** int($unit/3), # number
$#{$opt{units}} * 1.5 < abs $unit ? "e$unit" : $opt{units}->[$unit/3]