Condition Coverage

blib/lib/Number/Format.pm
Criterion Covered Total %
condition 37 55 67.2


and 3 conditions

line !l l&&!r l&&r condition
327 63 0 264 ref $_[0] and UNIVERSAL::isa($_[0], 'Number::Format')
384 2 1 1 $base > 0 and $base == int $base
445 96 0 0 defined $$locale_values{$_} and $$locale_values{$_} eq '-1'
523 121 0 0 ref $number and $number->isa('Math::BigFloat')
624 31 5 55 $trailing_zeroes and $precision > length $decimal
644 0 8 83 defined $decimal && length $decimal
802 93 11 5 $char eq $$self{'thousands_sep'} and $#num_int < 0
926 0 20 35 $sign_posn >= 0 and $sign_posn <= 2
1240 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
792 15 1 shift @num_dec || 0
1104 6 12 $options{'mode'} ||= 'traditional'

or 3 conditions

line l !l&&r !l&&!r condition
329 59 4 0 $DefaultObject ||= 'Number::Format'->new
369 27 2 7 not defined $base or $base == 1024
802 12 0 109 not defined $char or $char eq $$self{'thousands_sep'} and $#num_int < 0
854 52 0 3 not defined $curr_symbol or lc $curr_symbol eq 'int_curr_symbol'
856 0 3 52 not defined $curr_symbol or lc $curr_symbol eq 'currency_symbol'
926 13 7 0 $sign_posn == 3 or $sign_posn == 4