Condition Coverage

blib/lib/Net/DNS/Parameters.pm
Criterion Covered Total %
condition 16 16 100.0


or 2 conditions

line l !l condition
297 1124 22 $classbyname{$name} || $classbyname{uc $name} || (return do { croak(qq[unknown class "$name"]) unless $name =~ /^(CLASS)?(\d+)/i; my $val = 0 + $2; croak(qq[classbyname("$name") out of range]) if $val > 32767; return $val })
308 1090 2 $classbyval{$arg} || (return do { my $val = ($arg += 0) & 32767; croak("classbyval($arg) out of range") if $arg > 65535; return $classbyval{$arg} = $classbyval{$val} || "CLASS$val" })
319 988 57 $typebyname{$name} || (return do { if ($name =~ /^(TYPE)?(\d+)/i) { my $val = 0 + $2; croak(qq[typebyname("$name") out of range]) if $val > 65535; return $val; } ; _typespec("$name.RRNAME") unless $typebyname{uc $name}; return $typebyname{uc $name} || croak(qq[unknown type "$name"]) })
333 3068 2 $typebyval{$val} || (return do { $val += 0; croak("typebyval($val) out of range") if $val > 65535; $typebyval{$val} = "TYPE$val"; _typespec("$val.RRTYPE"); return $typebyval{$val} })
353 71 1 $opcodebyval{$val} || (return "$val")
367 328 19 $rcodebyval{$val} || (return "$val")
381 111 7 $ednsoptionbyval{$val} || (return "$val")
395 8 1 $dsotypebyval{$val} || (return "$val")