| line |
true |
false |
branch |
|
172
|
1 |
6 |
if @_ |
|
204
|
0 |
116 |
if length $_ == 0 and $paraborder |
|
207
|
3 |
113 |
if $lead eq '#' |
|
211
|
81 |
32 |
if (defined $name and $name =~ /^\S+?$/) { } |
|
|
8 |
24 |
elsif (/^\s(\s*\S.*)$/) { } |
|
|
15 |
9 |
elsif (length $_ == 0 or $expect_pgp_sig and $armor =~ /^-----BEGIN PGP SIGNATURE-----[\r\t ]*$/) { } |
|
|
5 |
4 |
elsif ($armor =~ /^-----BEGIN PGP SIGNED MESSAGE-----[\r\t ]*$/) { } |
|
213
|
0 |
81 |
if ($lead eq '-') |
|
216
|
0 |
81 |
if (exists $self->{$name}) |
|
217
|
0 |
0 |
unless ($$self->{'allow_duplicate'}) |
|
225
|
0 |
8 |
unless (defined $cf) |
|
228
|
3 |
5 |
if ($line =~ /^\.+$/) |
|
234
|
3 |
12 |
if ($expect_pgp_sig) |
|
237
|
0 |
3 |
unless (length $_) |
|
242
|
0 |
3 |
unless (/^-----BEGIN PGP SIGNATURE-----[\r\t ]*$/) |
|
249
|
3 |
13 |
if /^-----END PGP SIGNATURE-----[\r\t ]*$/ |
|
251
|
0 |
3 |
unless (defined $_) |
|
261
|
4 |
1 |
if ($$self->{'allow_pgp'} and not $parabody) { } |
|
264
|
4 |
4 |
if /^\s*$/ |
|
275
|
1 |
33 |
if ($expect_pgp_sig and not $$self->{'is_pgp_signed'}) |
|
298
|
0 |
0 |
if $key =~ /^X[SBC]*-\Q$name\E$/i |
|
312
|
0 |
0 |
if defined $key |
|
335
|
10 |
16 |
if (@{$$self->{'out_order'};}) { } |
|
340
|
163 |
22 |
if (defined $imp->{$a} and defined $imp->{$b}) { } |
|
|
12 |
10 |
elsif (defined $imp->{$a}) { } |
|
|
8 |
2 |
elsif (defined $imp->{$b}) { } |
|
355
|
137 |
0 |
if (exists $self->{$key}) |
|
358
|
1 |
136 |
if $$self->{'drop_empty'} and not $value =~ /\S/ |
|
363
|
125 |
11 |
if length $first_line |
|
367
|
37 |
73 |
if (length $_ == 0 or /^\.+$/) { } |
|
374
|
19 |
117 |
if ($fh) |
|
375
|
0 |
19 |
unless print {$fh;} $kv |
|
378
|
133 |
3 |
if defined wantarray |
|
415
|
0 |
0 |
if ($v ne $self->{$f}) |
|
424
|
0 |
0 |
if ($sep & 6) |
|
429
|
0 |
0 |
if ($sep & 2) |
|
479
|
0 |
0 |
unless $parent->isa('Dpkg::Control::HashCore') or $parent->isa('Dpkg::Control::Hash') |
|
488
|
4662 |
2 |
if exists $self->[0]{$key} |
|
495
|
4882 |
1348 |
unless (exists $self->[0]{$key}) |
|
512
|
0 |
0 |
if (exists $self->[0]{$key}) { } |
|
525
|
748 |
0 |
if exists $self->[0]{lc $key} |
|
534
|
616 |
2301 |
if ($found) { } |
|
535
|
616 |
0 |
if exists $self->[0]{lc $key} |
|
537
|
1364 |
937 |
if $key eq $last |