| line |
true |
false |
branch |
|
31
|
0 |
2 |
if @_ == 2
|
|
38
|
0 |
2 |
unless @_
|
|
41
|
2 |
0 |
if (ref $_[0] eq 'ARRAY') { }
|
|
47
|
0 |
0 |
unless exists $digitsets{$name}
|
|
51
|
2 |
0 |
if grep {$_ eq $$self{'neg_char'};} @{$$self{'digits'};}
|
|
52
|
2 |
0 |
if grep {$_ eq $$self{'radix_char'};} @{$$self{'digits'};}
|
|
77
|
0 |
0 |
if $nc and $str =~ s/^\Q$nc\E//
|
|
85
|
0 |
0 |
if $is_dec
|
|
91
|
0 |
0 |
unless $is_dec
|
|
94
|
0 |
0 |
unless ($is_dec or not $$self{'digitset_name'})
|
|
95
|
0 |
0 |
if $$self{'digitset_name'} =~ /^hex$/i
|
|
96
|
0 |
0 |
if $$self{'digitset_name'} eq 'bin'
|
|
97
|
0 |
0 |
if $$self{'digitset_name'} eq 'oct'
|
|
100
|
0 |
0 |
if ($result == 0)
|
|
105
|
0 |
0 |
if $fc and $str =~ s/^(.*)\Q$fc\E(.*)$/$1$2/
|
|
109
|
0 |
0 |
unless defined $v
|
|
126
|
0 |
0 |
if $rstring =~ /\./
|
|
129
|
0 |
0 |
$rstring eq $rscalar + 0 . '' ? :
|
|
137
|
0 |
0 |
$num =~ /\./ ? :
|
|
138
|
0 |
0 |
unless $$self{'radix_char'}
|
|
145
|
0 |
0 |
unless $is_dec and $$self{'radix_char'}
|
|
148
|
0 |
0 |
if $num < 0
|
|
151
|
0 |
0 |
if $num == 0
|
|
152
|
0 |
0 |
unless ($is_dec or not $$self{'digitset_name'})
|
|
153
|
0 |
0 |
if $$self{'digitset_name'} eq 'hex'
|
|
154
|
0 |
0 |
if $$self{'digitset_name'} eq 'HEX'
|
|
155
|
0 |
0 |
if $$self{'digitset_name'} eq 'bin'
|
|
156
|
0 |
0 |
if $$self{'digitset_name'} eq 'oct'
|
|
170
|
0 |
0 |
$i < 0 ? :
|
|
174
|
0 |
0 |
if $i == -1
|
|
181
|
0 |
0 |
unless length $result
|
|
184
|
0 |
0 |
if $is_dec
|