Condition Coverage

blib/lib/Number/Format.pm
Criterion Covered Total %
condition 35 49 71.4


and 3 conditions

line !l l&&!r l&&r condition
316 58 0 252 ref $_[0] and UNIVERSAL::isa($_[0], 'Number::Format')
373 2 1 1 $base > 0 and $base == int $base
566 27 5 54 $trailing_zeroes and $precision > length $decimal
586 0 5 81 defined $decimal && length $decimal
728 90 11 5 $char eq $$self{'thousands_sep'} and $#num_int < 0
846 0 20 34 $sign_posn >= 0 and $sign_posn <= 2
1147 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
718 15 1 shift @num_dec || 0
1018 6 11 $options{'mode'} ||= 'traditional'

or 3 conditions

line l !l&&r !l&&!r condition
318 54 4 0 $DefaultObject ||= 'Number::Format'->new
358 26 2 7 not defined $base or $base == 1024
728 12 0 106 not defined $char or $char eq $$self{'thousands_sep'} and $#num_int < 0
774 51 0 3 not defined $curr_symbol or lc $curr_symbol eq 'int_curr_symbol'
776 0 3 51 not defined $curr_symbol or lc $curr_symbol eq 'currency_symbol'
846 13 7 0 $sign_posn == 3 or $sign_posn == 4