| line |
true |
false |
branch |
|
87
|
0 |
6 |
unless (exists $attrs{'module'}) |
|
92
|
0 |
6 |
unless (defined $builddir) |
|
96
|
4 |
2 |
unless (exists $attrs{'installdirs'}) |
|
101
|
0 |
6 |
if ($installdirs ne "vendor" and $installdirs ne "site") |
|
105
|
6 |
0 |
unless (exists $attrs{'build_number'}) |
|
110
|
0 |
6 |
unless ($build_number =~ /\A [1-9]\d* \z/msux) |
|
122
|
82 |
76 |
unless (exists $self->{$name}) |
|
270
|
3 |
0 |
unless $self->rpm_eval("%{?vendor}") |
|
380
|
0 |
64 |
unless opendir my $dh, $dir |
|
384
|
128 |
76 |
if $entry eq "." or $entry eq ".." |
|
389
|
0 |
76 |
if -l $path |
|
392
|
60 |
16 |
if (-d $path) |
|
398
|
0 |
76 |
unless (@stat) |
|
405
|
0 |
76 |
if ($old_mode != $new_mode) |
|
406
|
0 |
0 |
unless (chmod $new_mode, $path) |
|
413
|
60 |
16 |
if (-d $path) { } |
|
417
|
4 |
8 |
if ($entry eq "perllocal.pod" or $entry eq ".packlist" or $entry =~ /[.]bs \z/msux and -z $path) |
|
421
|
0 |
8 |
unless (unlink $path) |
|
441
|
0 |
0 |
if (defined $stagingdir) |
|
463
|
0 |
9 |
if ($rpm_cmd) |
|
466
|
0 |
0 |
if (run("command", \@eval_cmd, "buffer", \$output)) |
|
490
|
6 |
0 |
if (defined $stagingdir) |
|
504
|
0 |
13 |
if (exists $PACKAGE_NAME_FOR{$dist_name}) { } |
|
511
|
12 |
1 |
unless ($name =~ /\A perl-/msux) |
|
526
|
0 |
18 |
if (exists $VERSION_FOR{$dist_name}) |
|
553
|
3 |
0 |
if (-f $metafile) |
|
555
|
3 |
0 |
if defined $meta |
|
592
|
0 |
3 |
unless (defined $stagingdir) |
|
611
|
0 |
3 |
unless (defined $stagingdir) |
|
616
|
3 |
0 |
if ($is_noarch) |
|
619
|
3 |
0 |
if (defined $archdir) |
|
621
|
0 |
3 |
if (-d $autodir) |
|
638
|
3 |
0 |
if (-f $filename) |
|
656
|
0 |
3 |
if ($self->rpm_eval("%{?packager}") =~ /$EMAIL/u) |
|
661
|
3 |
0 |
unless ($name) |
|
664
|
1 |
4 |
if ($ENV{$key}) |
|
666
|
1 |
0 |
if $name |
|
672
|
1 |
5 |
if ($ENV{$key}) |
|
674
|
1 |
0 |
if ($value and $value =~ /$EMAIL/u) |
|
675
|
0 |
1 |
unless ($name) |
|
678
|
1 |
0 |
unless ($email) |
|
688
|
3 |
0 |
if (@pw) |
|
691
|
2 |
1 |
unless ($name) |
|
693
|
2 |
0 |
if ($gecos) |
|
699
|
0 |
3 |
unless ($user) |
|
702
|
0 |
0 |
if ($ENV{$key}) |
|
704
|
0 |
0 |
if $user |
|
709
|
0 |
3 |
unless ($user) |
|
713
|
0 |
3 |
unless ($name) |
|
717
|
2 |
1 |
unless ($email) |
|
732
|
4 |
0 |
if (defined $meta) |
|
734
|
4 |
0 |
if ($text and not $text =~ /unknown/imsux) |
|
748
|
1 |
0 |
if (defined $pod) |
|
773
|
3 |
0 |
if (defined $pod) |
|
777
|
0 |
3 |
unless ($description) |
|
794
|
3 |
0 |
if (defined $meta and ref $meta->{'prereqs'} eq 'HASH') { } |
|
831
|
0 |
12 |
unless $module |
|
834
|
0 |
12 |
if $module_name eq "Task::Weaken" |
|
837
|
0 |
12 |
if $module_name =~ /\A (?:VMS | Win32)/msux |
|
847
|
0 |
12 |
if (exists $version_for{$dist_name}) |
|
851
|
12 |
0 |
if (not exists $dependency{$module_name} or $dependency{$module_name}{'version'} < $version) |
|
881
|
3 |
0 |
if (defined $pod) |
|
885
|
0 |
3 |
unless (@copyrights) |
|
887
|
0 |
0 |
$author ? : |
|
903
|
4 |
0 |
if (defined $meta) |
|
905
|
4 |
0 |
if (defined $keys) |
|
906
|
0 |
4 |
unless (ref $keys) |
|
914
|
4 |
0 |
if (@license) |
|
930
|
4 |
0 |
if (defined $pod) |
|
933
|
4 |
0 |
if (@license) |
|
955
|
0 |
3 |
unless ($license) |
|
972
|
0 |
3 |
unless (@licenses) |
|
987
|
0 |
3 |
@names > 1 && /\b OR \b/imsux ? : |
|
1033
|
0 |
5 |
unless opendir my $dh, $dir |
|
1037
|
10 |
5 |
if $entry eq "." or $entry eq ".." |
|
1042
|
0 |
5 |
if -l $path |
|
1044
|
0 |
5 |
if (-d $path) { } |
|
1059
|
0 |
5 |
unless opendir my $dh, $dir |
|
1063
|
10 |
105 |
if $entry eq "." or $entry eq ".." |
|
1068
|
0 |
105 |
if -l $path |
|
1070
|
25 |
80 |
if (-d $path) { } |
|
|
70 |
10 |
elsif (-s $path) { } |
|
1071
|
5 |
20 |
if ($entry eq "examples") |
|
1080
|
20 |
169 |
if ($entry =~ /$regex_for{$type}/u) |
|
1125
|
40 |
20 |
unless $value |
|
1127
|
5 |
15 |
if ($var =~ /arch \z/msux) |
|
1155
|
0 |
40 |
unless opendir my $dh, $dir |
|
1159
|
80 |
47 |
if $entry eq "." or $entry eq ".." |
|
1164
|
35 |
12 |
-d $path ? : |
|
|
0 |
47 |
-l $path ? : |
|
1165
|
12 |
35 |
if ($type eq "file") |
|
1168
|
0 |
12 |
if (exists $subdir{'etc'}) { } |
|
|
5 |
7 |
elsif (exists $subdir{'man'}) { } |
|
1176
|
43 |
4 |
unless (exists $excludedirs->{$name}) |
|
1182
|
0 |
47 |
if -l $path |
|
1184
|
35 |
12 |
if (-d $path) |