| line | % | coverage | branch |
|---|
| 181 | 100 | T | F | if @_ |
| 213 | 50 | T | F | if length $_ == 0 and $paraborder |
| 216 | 100 | T | F | if $lead eq "#" |
| 220 | 100 | T | F | if (defined $name and $name =~ /^\S+?$/) { } |
| 100 | T | F | elsif (/^\s(\s*\S.*)$/) { } |
| 100 | T | F | elsif (length $_ == 0 or $expect_pgp_sig and $armor =~ /^-----BEGIN PGP SIGNATURE-----[\r\t ]*$/) { } |
| 100 | T | F | elsif ($armor =~ /^-----BEGIN PGP SIGNED MESSAGE-----[\r\t ]*$/) { } |
| 222 | 50 | T | F | if ($lead eq "-") |
| 225 | 50 | T | F | if (exists $self->{$name}) { } |
| 226 | 0 | T | F | unless ($$self->{'allow_duplicate'}) |
| 229 | 0 | T | F | if ($$self->{'keep_duplicate'}) { } |
| 230 | 0 | T | F | if (ref $self->{$name} ne 'ARRAY') { } |
| 247 | 50 | T | F | unless (defined $cf) |
| 250 | 100 | T | F | if ($line =~ /^\.+$/) |
| 256 | 100 | T | F | if ($expect_pgp_sig) |
| 259 | 50 | T | F | unless (length $_) |
| 264 | 50 | T | F | unless (/^-----BEGIN PGP SIGNATURE-----[\r\t ]*$/) |
| 271 | 100 | T | F | if /^-----END PGP SIGNATURE-----[\r\t ]*$/ |
| 273 | 50 | T | F | unless (defined $_) |
| 283 | 100 | T | F | if ($$self->{'allow_pgp'} and not $parabody) { } |
| 286 | 100 | T | F | if /^\s*$/ |
| 297 | 100 | T | F | if ($expect_pgp_sig and not $$self->{'is_pgp_signed'}) |
| 320 | 0 | T | F | if $key =~ /^X[SBC]*-\Q$name\E$/i |
| 334 | 0 | T | F | if defined $key |
| 357 | 50 | T | F | if (@{$$self->{'out_order'};}) { } |
| 362 | 100 | T | F | if (defined $imp->{$a} and defined $imp->{$b}) { } |
| 100 | T | F | elsif (defined $imp->{$a}) { } |
| 100 | T | F | elsif (defined $imp->{$b}) { } |
| 377 | 50 | T | F | if (exists $self->{$key}) |
| 380 | 100 | T | F | if $$self->{'drop_empty'} and not $value =~ /\S/ |
| 385 | 100 | T | F | if length $first_line |
| 389 | 100 | T | F | if (length $_ == 0 or /^\.+$/) { } |
| 396 | 100 | T | F | if ($fh) |
| 397 | 50 | T | F | unless print {$fh;} $kv |
| 400 | 100 | T | F | if defined wantarray |
| 437 | 0 | T | F | if ($v ne $self->{$f}) |
| 446 | 0 | T | F | if ($sep & 6) |
| 451 | 0 | T | F | if ($sep & 2) |
| 504 | 0 | T | F | unless $parent->isa("Dpkg::Control::HashCore") or $parent->isa("Dpkg::Control::Hash") |
| 513 | 50 | T | F | if exists $self->[0]{$key} |
| 520 | 100 | T | F | unless (exists $self->[0]{$key}) |
| 537 | 50 | T | F | if (exists $self->[0]{$key}) { } |
| 550 | 50 | T | F | if exists $self->[0]{lc $key} |
| 559 | 100 | T | F | if ($found) { } |
| 560 | 50 | T | F | if exists $self->[0]{lc $key} |
| 562 | 100 | T | F | if $key eq $last |