Branch Coverage

blib/lib/Net/DNS/RR/SVCB.pm
Criterion Covered Total %
branch 80 80 100.0


line true false branch
50 2 10 if ($offset = $start + $size) > $limit
53 2 12 unless $offset == $limit
61 3 5 if $self->{'rdata'}
83 19 6 unless $target eq "."
93 23 7 if @hex
94 9 21 unless $key < 16
98 5 20 if ($self->{'rdata'})
99 2 3 if (my $corrupt = substr($self->{'rdata'}, $length))
118 4 13 $2 ? :
38 17 length $3 ? :
119 12 43 if (/^key\d+/) { }
123 2 41 if /\\092[,\\]/
140 31 12 scalar @$paramref ? :
143 7 24 if (defined $svcparam{'0'})
146 1 8 if $unique{'0'}
147 1 7 if --$unique{$_}
148 1 6 unless defined $svcparam{$_}
152 2 26 if defined $svcparam{'2'} and not $svcparam{'1'}
174 45 6 if @value
175 49 2 $self->{'TargetName'} ? :
176 33 16 unless $target eq "."
177 14 2 $self->{'SvcPriority'} ? :
183 12 3 unless $keybyname{lc $_}
184 14 1 /(\d+)$/ ? :
195 2 4 if defined wantarray
226 1 3 if defined wantarray
241 34 9 scalar @arg ? :
246 4 3 unless scalar @arg
247 2 1 $_ ? :
287 4 53 if ($self->can($canonical))
294 1 52 unless $method =~ /^key[0]*(\d+)$/i
297 9 43 unless @argument
299 12 31 defined $first ? :
310 82 26 if (scalar @argument) { }
312 32 50 unless defined $arg
313 1 81 if defined $svcparams{$key}
314 1 80 if $key > 65534
315 2 78 if scalar @argument
317 46 32 if defined $arg
320 6 20 unless defined wantarray