Condition Coverage

blib/lib/Number/Format.pm
Criterion Covered Total %
condition 43 64 67.1


and 3 conditions

line !l l&&!r l&&r condition
321 70 0 272 ref $_[0] and UNIVERSAL::isa($_[0], "Number::Format")
354 264 0 0 $$self{"${prefix}decimal_point"} eq $$self{"${prefix}thousands_sep"} and $prefix eq '' || $self->{'mon_decimal_point'} ne ''
386 2 1 1 $base > 0 and $base == int $base
441 12 0 84 defined $locale_values->{$_} and $locale_values->{$_} eq -1
451 216 108 24 exists $locale_values->{$arg} && $locale_values->{$arg} ne ''
521 125 0 0 ref $number and $number->isa("Math::BigFloat")
624 35 5 55 $trailing_zeroes and $precision > length $decimal
644 0 8 87 defined $decimal && length $decimal
807 93 11 5 $char eq $self->{'thousands_sep'} and $#num_int < 0
932 0 20 35 $sign_posn >= 0 and $sign_posn <= 2
1257 0 21 0 $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_decimal_point'}
21 0 0 $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_thousands_sep'}
21 0 0 $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_thousands_sep'} and $self->{'mon_decimal_point'} ne $self->{'thousands_sep'}

or 2 conditions

line l !l condition
796 15 1 shift @num_dec || 0
1112 9 13 $options{'mode'} ||= "traditional"

or 3 conditions

line l !l&&r !l&&!r condition
323 66 4 0 $DefaultObject ||= "Number::Format"->new
354 0 0 0 $prefix eq '' || $self->{'mon_decimal_point'} ne ''
367 31 3 9 not defined $base or $base == 1024
807 12 20 89 not defined $char or $char eq $self->{'thousands_sep'} and $#num_int < 0
861 52 0 3 not defined $curr_symbol or lc $curr_symbol eq "int_curr_symbol"
863 0 3 52 not defined $curr_symbol or lc $curr_symbol eq "currency_symbol"
932 13 7 0 $sign_posn == 3 or $sign_posn == 4