Condition Coverage

blib/lib/Number/Format.pm
Criterion Covered Total %
condition 41 64 64.0


and 3 conditions

line !l l&&!r l&&r condition
330 63 0 264 ref $_[0] and UNIVERSAL::isa($_[0], "Number::Format")
363 250 0 0 $$self{"${prefix}decimal_point"} eq $$self{"${prefix}thousands_sep"} and $prefix eq '' || $self->{'mon_decimal_point'} ne ''
391 2 1 1 $base > 0 and $base == int $base
452 96 0 0 defined $locale_values->{$_} and $locale_values->{$_} eq -1
462 312 0 12 exists $locale_values->{$arg} && $locale_values->{$arg} ne ''
530 121 0 0 ref $number and $number->isa("Math::BigFloat")
631 31 5 55 $trailing_zeroes and $precision > length $decimal
651 0 8 83 defined $decimal && length $decimal
810 93 11 5 $char eq $self->{'thousands_sep'} and $#num_int < 0
933 0 20 35 $sign_posn >= 0 and $sign_posn <= 2
1247 0 18 0 $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_decimal_point'}
18 0 0 $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_decimal_point'} and $self->{'decimal_point'} ne $self->{'mon_thousands_sep'}
18 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
799 15 1 shift @num_dec || 0
1111 6 12 $options{'mode'} ||= "traditional"

or 3 conditions

line l !l&&r !l&&!r condition
332 59 4 0 $DefaultObject ||= "Number::Format"->new
363 0 0 0 $prefix eq '' || $self->{'mon_decimal_point'} ne ''
376 27 2 7 not defined $base or $base == 1024
810 12 20 89 not defined $char or $char eq $self->{'thousands_sep'} and $#num_int < 0
862 52 0 3 not defined $curr_symbol or lc $curr_symbol eq "int_curr_symbol"
864 0 3 52 not defined $curr_symbol or lc $curr_symbol eq "currency_symbol"
933 13 7 0 $sign_posn == 3 or $sign_posn == 4