Branch Coverage

blib/lib/Net/DNS/RR/OPT.pm
Criterion Covered Total %
branch 98 98 100.0


line true false branch
35 87 1 if defined $class
38 87 1 if defined $ttl
114 1 4 unless ($version == 0)
127 1 3 scalar @format ? :
150 126 75 $_ > 512 ? :
163 288 7 $_ < 16 ? :
178 4 105 defined $self->{'index'} ? :
185 66 70 unless scalar @value
187 1 68 $@ ? :
198 45 41 unless wantarray
201 32 9 if ($package->can("_decompose"))
202 1 31 unless length $payload
204 30 1 if scalar @structure
206 1 9 if $@
207 8 2 length $payload ? :
217 7 63 unless scalar keys %$options
219 1 69 unless defined $arg
222 44 25 if (ref $arg eq "HASH")
226 26 18 if defined $arg->{'BASE16'}
227 1 43 if defined $length and $length == 0
228 31 13 if defined $octets
234 34 4 if length $arg and $package->can("_compose")
236 1 3 if ref $arg
257 1 88 unless defined $value
259 36 52 if (ref $value eq "HASH")
262 7 29 if defined $_
270 4 48 if (ref $value eq "ARRAY")
278 22 26 if &Scalar::Util::isdual($value)
280 16 10 unless (utf8::is_utf8($value))
281 1 15 if /^-?\d+$/
282 1 14 if /^-?\d+\.\d+$/
283 1 13 if /^-?\d+(\.\d+)?e[+-]\d\d?$/i
297 1 3 ref $_ ? :
307 3 16 ref $_ ? :
328 3 6 ref $_ ? :
350 1 3 ref $_ ? :
367 1 2 if /HASH/
368 1 2 if /ARRAY/
383 1 3 ref $_ ? :
396 1 11 ref $_ ? :
403 2 1 if $argument =~ /^\000*$/
411 1 1 ref $_ ? :
424 1 6 ref $_ ? :
435 3 3 ref $arg[0] ? :
443 2 2 defined $error ? :
446 2 2 unless /^[\[\{]/
449 45 22 if defined $_
451 1 1 if ref $value
461 1 1 ref $_ ? :