line |
true |
false |
branch |
92
|
0 |
0 |
unless (defined $record) |
97
|
0 |
0 |
unless ($record =~ /^[0123456789\.]*$/) |
107
|
0 |
0 |
if ($recordSplit[$int] == 4) |
112
|
0 |
0 |
if ($int == 0) |
113
|
0 |
0 |
if ($recordSplit[$int] == 0) |
119
|
0 |
0 |
if ($recordSplit[$int] > 255) |
124
|
0 |
0 |
if ($int == 3) |
125
|
0 |
0 |
if ($recordSplit[$int] == 0) |
133
|
0 |
0 |
if ($int < 4) |
170
|
0 |
0 |
unless (defined $record) |
175
|
0 |
0 |
unless ($record =~ /^[0123456789AaBbCcDdEeFf\:]*$/) |
180
|
0 |
0 |
if ($record =~ /\:\:\:/) |
217
|
0 |
0 |
unless (defined $record) |
222
|
0 |
0 |
unless ($record =~ /^[[:alnum:]\.]*$/) |
227
|
0 |
0 |
if ($record =~ /^\./) |
269
|
0 |
0 |
unless (defined $record) |
274
|
0 |
0 |
unless ($record =~ /^[A-Z]/) |
279
|
0 |
0 |
unless ($record =~ m[^[A-Z0-1\-/]$]) |
284
|
0 |
0 |
unless ($record =~ /[A-Z0-1]$/) |
329
|
0 |
0 |
unless (defined $record) |
337
|
0 |
0 |
unless ($recordSplit[0] =~ /^[[:digit:]]$/) |
342
|
0 |
0 |
unless (defined $recordSplit[1]) |
347
|
0 |
0 |
if ($_[0]->CNAME($recordSplit[1])) |
352
|
0 |
0 |
if (defined $recordSplit[2]) |
424
|
0 |
0 |
unless (defined $record) |
430
|
0 |
0 |
if (defined $recordSplit[2]) |
434
|
0 |
0 |
unless (defined $recordSplit[1]) |
438
|
0 |
0 |
if ($recordSplit[0] =~ /[\!\#\$\%\^\&\*\(\)\;\:\<\>\[\]]/) |
442
|
0 |
0 |
unless ($_[0]->CNAME($recordSplit[1])) |
471
|
0 |
0 |
unless (defined $record) |