| line |
true |
false |
branch |
|
28
|
0 |
0 |
if (@missing_packages) |
|
40
|
2 |
0 |
if (@packages) |
|
47
|
0 |
2 |
if (ref $package eq "ARRAY") |
|
56
|
0 |
2 |
unless my $pid = IPC::Open3::open3(undef, $fh, $err, @cmd) |
|
60
|
1 |
0 |
if (/^([^\t]+)\t([^\t]+)\t([^\t]*)$/) { } |
|
61
|
0 |
1 |
if ($2 ne "install ok installed") |
|
64
|
0 |
1 |
if ($required_version{$1} and $required_version{$1} ne $3) |
|
74
|
1 |
1 |
unless ($seen_packages{$package}) |
|
93
|
0 |
1 |
unless my $pid = IPC::Open3::open3(undef, $fh, $err, @cmd) |
|
98
|
0 |
5 |
if (/^Inst\s+(\S+)/) |
|
104
|
0 |
1 |
if ($exit_code != 0) |
|
117
|
0 |
0 |
if %opts |
|
119
|
0 |
0 |
if (not $url) { } |
|
120
|
0 |
0 |
unless ($keyserver) |
|
123
|
0 |
0 |
unless ($key) |
|
127
|
0 |
0 |
if ($keyserver) |
|
134
|
0 |
0 |
if ($is_modern) |
|
135
|
0 |
0 |
unless (defined $file) |
|
141
|
0 |
0 |
if ($key) |
|
157
|
0 |
0 |
if (defined $file) { } |
|
164
|
0 |
0 |
if (-r $keyfile) |
|
166
|
0 |
0 |
unless open my $fh, "-|", @cmd |
|
169
|
0 |
0 |
if (/^fpr:::::::::\Q$key\E:$/) |
|
174
|
0 |
0 |
unless close $fh |
|
183
|
0 |
0 |
unless ($found_key) |
|
184
|
0 |
0 |
if ($keyserver) { } |
|
|
0 |
0 |
elsif ($url) { } |
|
188
|
0 |
0 |
if ($self->which('curl')) { } |
|
194
|
0 |
0 |
if ($is_modern) { } |
|
199
|
0 |
0 |
if ($self->is_dry_run) { } |
|
202
|
0 |
0 |
unless open my $ifh, "-|", @fetch_cmd |
|
204
|
0 |
0 |
unless open my $ofh, "|-", @add_cmd |
|
210
|
0 |
0 |
unless close $ofh |
|
212
|
0 |
0 |
unless close $ifh |
|
225
|
0 |
0 |
if ($os_release->{'ID'} eq 'debian' and ($os_release->{'VERSION_ID'} || 0) >= 13 || $os_release->{'VERSION_CODENAME'} =~ /^(trixie|sid)$/ or $os_release->{'ID'} eq 'ubuntu' and $os_release->{'VERSION_ID'} >= 24.04) { } |
|
236
|
0 |
0 |
if %opts |
|
239
|
0 |
0 |
$os_release->{'ID'} eq 'debian' ? : |
|
240
|
0 |
0 |
$os_release->{'ID'} eq 'ubuntu' ? : |
|
247
|
0 |
0 |
if ($debian_ver and $debian_ver >= 13 or $ubuntu_ver and $ubuntu_ver >= 24.04) { } |
|
254
|
0 |
0 |
if (-e $list_file) |
|
263
|
0 |
0 |
if (-e $sources_file) |
|
269
|
0 |
0 |
if ($changed and $update) |
|
282
|
0 |
29 |
if $line =~ /^\s*#/ or $line =~ /^\s*$/ |
|
284
|
28 |
1 |
if ($line =~ /^(\S+):\s*(.*)$/) { } |
|
|
1 |
0 |
elsif ($line =~ /^\s+(\S.*)$/ and $current_key) { } |
|
286
|
28 |
0 |
if $2 ne "" |
|
294
|
0 |
6 |
unless $stanza{'types'} |
|
295
|
0 |
8 |
unless $stanza{'uris'} |
|
296
|
0 |
8 |
unless $stanza{'suites'} |
|
297
|
0 |
9 |
unless $stanza{'components'} |
|
300
|
3 |
6 |
if ($stanza{'architectures'}) |
|
303
|
3 |
6 |
if ($stanza{'signed-by'}) |
|
307
|
4 |
5 |
@opts ? : |