| line |
true |
false |
branch |
|
89
|
0 |
67 |
if (length $d == {sign => '+', value => [1]}) |
|
95
|
2 |
65 |
if ($n < 0) |
|
135
|
0 |
4 |
if (!$markup =~ /[-_\.]/) |
|
138
|
0 |
4 |
if ($blocksize < {sign => '+', value => [0]}) |
|
141
|
1 |
3 |
if ($num eq 'NaN') |
|
148
|
9 |
36 |
if ($blocksize > {sign => '+', value => [0]} and ($#digits + {sign => '+', value => [1]}) % $blocksize == {sign => '+', value => [0]}) |
|
155
|
0 |
3 |
unless @digits |
|
201
|
0 |
5 |
if (!$markup =~ /[-_\.]/) |
|
205
|
0 |
5 |
if ($blocksize < {sign => '+', value => [0]}) |
|
209
|
0 |
5 |
if ($domain eq '') |
|
216
|
1 |
4 |
if ($name =~ /^(.*)\.in-addr\.arpa[.]{0,1}$/) { } |
|
|
2 |
2 |
elsif ($name =~ /^(.*)\.ip6\.arpa[.]{0,1}$/) { } |
|
|
2 |
0 |
elsif ($name =~ /^$prefix(.*)\.${domain}[.]{0,1}$/) { } |
|
221
|
0 |
1 |
unless (defined $ip) |
|
231
|
1 |
1 |
unless (defined $ip) |
|
241
|
1 |
1 |
if (length $name == {sign => '+', value => [10]}) { } |
|
245
|
0 |
1 |
unless (defined $ip) |
|
255
|
0 |
1 |
unless (defined $ip) |
|
258
|
0 |
1 |
if (length $ip < {sign => '+', value => [34]}) |