| line |
true |
false |
branch |
|
16
|
0 |
16 |
unless open my $fh, ">", $out // \$outstr |
|
41
|
0 |
31 |
unless open my $fh, "<", $file |
|
50
|
343 |
1029 |
if ($l eq '%%') { } |
|
|
343 |
686 |
elsif ($l =~ /^PACKAGE: /u) { } |
|
|
0 |
686 |
elsif ($pkg eq '') { } |
|
|
343 |
343 |
elsif ($l =~ /^DEPS: /u) { } |
|
|
343 |
0 |
elsif ($l =~ /^MANUAL: /u) { } |
|
64
|
45 |
298 |
$manual eq '1' ? : |
|
99
|
31 |
10 |
if ($file) |
|
121
|
0 |
86 |
if $self->blacklist($p) |
|
123
|
0 |
86 |
unless ($self->exists($p)) |
|
128
|
19 |
67 |
if (defined $self->{'_data'}{$p}) |
|
129
|
1 |
18 |
if $manual |
|
141
|
124 |
0 |
unless exists $added{$ad} |
|
162
|
0 |
15 |
if $self->blacklist($p) |
|
164
|
0 |
15 |
unless ($self->exists($p)) |
|
168
|
0 |
15 |
if (defined $self->{'_data'}{$p} and $manual) { } |
|
194
|
0 |
30 |
unless (defined $self->{'_data'}{$p}) |
|
215
|
0 |
3 |
unless ($self->has($pkg)) |
|
222
|
0 |
6 |
if $self->blacklist($d) |
|
224
|
0 |
6 |
unless ($self->has($d)) |
|
229
|
6 |
0 |
unless (&any(sub {
$d eq $_;
}
, @{$$self{"_data"}{$pkg}{"Deps"};})) |
|
249
|
4 |
2 |
if (&any(sub {
$p eq $_;
}
, @{$deps;})) { } |
|
291
|
5 |
44 |
if @pmissing |
|
315
|
2 |
13 |
if @pextra |
|
328
|
0 |
82 |
unless (defined $self->{'_data'}{$pkg}) |
|
332
|
6 |
76 |
if ($self->{'_data'}{$pkg}{'Manual'}) |
|
354
|
5 |
15 |
if ($p eq $dep) |
|
358
|
2 |
13 |
if ($self->is_dependency($dep, $p)) |
|
375
|
8 |
82 |
if ($p eq $dep) |
|
389
|
82 |
893 |
$self->{'_data'}{$pkg}{'Manual'} ? : |
|
398
|
0 |
108 |
if $self->blacklist($pkg) |
|
400
|
107 |
1 |
if (() = glob("$self->{'_sbodir'}/*/$pkg/$pkg.info")) { } |
|
469
|
0 |
144 |
unless $info |
|
471
|
0 |
144 |
unless open my $fh, "<", $info |
|
478
|
777 |
144 |
unless $l =~ /^REQUIRES=".*("|\\)$/u |
|
521
|
0 |
5 |
unless (defined $self->{'_data'}{$pkg}) |