Branch Coverage

blib/lib/DNS/Record/Check.pm
Criterion Covered Total %
branch 0 60 0.0


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)