| line |
true |
false |
branch |
|
42
|
2 |
10 |
unless @_ |
|
43
|
4 |
6 |
if (ref $_[0]) { } |
|
44
|
0 |
6 |
unless exists $digsets{$setn} |
|
45
|
0 |
10 |
unless @{$digsets{$d2bs};} |
|
49
|
1 |
10 |
if $t =~ s/^-// |
|
50
|
0 |
69 |
unless exists $bs2d{$_} |
|
55
|
0 |
12 |
if $s > @{$digsets{$d2bs};} |
|
56
|
1 |
11 |
if $n =~ s/^-// |
|
58
|
12 |
0 |
if (length $t) { } |
|
67
|
0 |
9 |
unless defined $numb and length $numb |
|
69
|
0 |
9 |
if $numb =~ /^-?0+$/ |
|
70
|
4 |
5 |
unless (defined $tbas) |
|
71
|
0 |
4 |
if (not defined $fbas) { } |
|
72
|
0 |
0 |
if ($numb =~ /^0x/i or $numb =~ /[A-F]/i and $numb =~ /^[0-9A-F]+$/i) { } |
|
|
0 |
0 |
elsif ($numb =~ /[G-Z._]/i and $numb =~ /^[0-9A-Z._]+$/i) { } |
|
|
0 |
0 |
elsif ($numb =~ /\D/) { } |
|
77
|
0 |
9 |
if $fbas =~ /\D/ |
|
|
0 |
9 |
if $tbas =~ /\D/ |
|
78
|
0 |
9 |
if ($fbas == 16) |
|
79
|
0 |
9 |
if $fbas < 2 or $tbas < 2 |
|
80
|
5 |
4 |
if $numb =~ /\D/ or $fbas != 10 |
|
81
|
4 |
5 |
if $tbas != 10 |