line |
true |
false |
branch |
30
|
0 |
2 |
if @_ == 2
|
37
|
0 |
2 |
unless @_
|
40
|
2 |
0 |
if (ref $_[0] eq 'ARRAY') { }
|
46
|
0 |
0 |
unless exists $digitsets{$name}
|
50
|
2 |
0 |
if grep {$_ eq $$self{'neg_char'};} @{$$self{'digits'};}
|
51
|
2 |
0 |
if grep {$_ eq $$self{'radix_char'};} @{$$self{'digits'};}
|
76
|
0 |
0 |
if $nc and $str =~ s/^\Q$nc\E//
|
84
|
0 |
0 |
if $is_dec
|
90
|
0 |
0 |
unless $is_dec
|
93
|
0 |
0 |
unless ($is_dec or not $$self{'digitset_name'})
|
94
|
0 |
0 |
if $$self{'digitset_name'} =~ /^hex$/i
|
95
|
0 |
0 |
if $$self{'digitset_name'} eq 'bin'
|
96
|
0 |
0 |
if $$self{'digitset_name'} eq 'oct'
|
99
|
0 |
0 |
if ($result == 0)
|
104
|
0 |
0 |
if $fc and $str =~ s/^(.*)\Q$fc\E(.*)$/$1$2/
|
108
|
0 |
0 |
unless defined $v
|
125
|
0 |
0 |
if $rstring =~ /\./
|
128
|
0 |
0 |
$rstring eq $rscalar + 0 . '' ? :
|
136
|
0 |
0 |
$num =~ /\./ ? :
|
137
|
0 |
0 |
unless $$self{'radix_char'}
|
144
|
0 |
0 |
unless $is_dec and $$self{'radix_char'}
|
147
|
0 |
0 |
if $num < 0
|
150
|
0 |
0 |
if $num == 0
|
151
|
0 |
0 |
unless ($is_dec or not $$self{'digitset_name'})
|
152
|
0 |
0 |
if $$self{'digitset_name'} eq 'hex'
|
153
|
0 |
0 |
if $$self{'digitset_name'} eq 'HEX'
|
154
|
0 |
0 |
if $$self{'digitset_name'} eq 'bin'
|
155
|
0 |
0 |
if $$self{'digitset_name'} eq 'oct'
|
169
|
0 |
0 |
$i < 0 ? :
|
173
|
0 |
0 |
if $i == -1
|
180
|
0 |
0 |
unless length $result
|
183
|
0 |
0 |
if $is_dec
|