| 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 |
77 |
unless (exists $self->{$name}) |
|
379
|
0 |
64 |
unless opendir my $dh, $dir |
|
383
|
128 |
76 |
if $entry eq "." or $entry eq ".." |
|
388
|
0 |
76 |
if -l $path |
|
391
|
60 |
16 |
if (-d $path) |
|
397
|
0 |
76 |
unless (@stat) |
|
404
|
0 |
76 |
if ($old_mode != $new_mode) |
|
405
|
0 |
0 |
unless (chmod $new_mode, $path) |
|
412
|
60 |
16 |
if (-d $path) { } |
|
416
|
4 |
8 |
if ($entry eq "perllocal.pod" or $entry eq ".packlist" or $entry =~ /[.]bs \z/msux and -z $path) |
|
420
|
0 |
8 |
unless (unlink $path) |
|
440
|
0 |
0 |
if (defined $stagingdir) |
|
462
|
0 |
9 |
if ($rpm_cmd) |
|
465
|
0 |
0 |
if (run("command", \@eval_cmd, "buffer", \$output)) |
|
489
|
6 |
0 |
if (defined $stagingdir) |
|
503
|
0 |
13 |
if (exists $PACKAGE_NAME_FOR{$dist_name}) { } |
|
510
|
12 |
1 |
unless ($name =~ /\A perl-/msux) |
|
525
|
0 |
18 |
if (exists $VERSION_FOR{$dist_name}) |
|
552
|
3 |
0 |
if (-f $metafile) |
|
554
|
3 |
0 |
if defined $meta |
|
591
|
0 |
3 |
unless (defined $stagingdir) |
|
610
|
0 |
3 |
unless (defined $stagingdir) |
|
615
|
3 |
0 |
if ($is_noarch) |
|
618
|
3 |
0 |
if (defined $archdir) |
|
620
|
0 |
3 |
if (-d $autodir) |
|
637
|
3 |
0 |
if (-f $filename) |
|
655
|
0 |
3 |
if ($self->rpm_eval("%{?packager}") =~ /$EMAIL/u) |
|
660
|
3 |
0 |
unless ($name) |
|
663
|
1 |
6 |
if ($ENV{$key}) |
|
665
|
1 |
0 |
if $name |
|
671
|
1 |
8 |
if ($ENV{$key}) |
|
673
|
1 |
0 |
if ($value and $value =~ /$EMAIL/u) |
|
674
|
0 |
1 |
unless ($name) |
|
677
|
1 |
0 |
unless ($email) |
|
687
|
3 |
0 |
if (@pw) |
|
690
|
2 |
1 |
unless ($name) |
|
692
|
2 |
0 |
if ($gecos) |
|
698
|
0 |
3 |
unless ($user) |
|
701
|
0 |
0 |
if ($ENV{$key}) |
|
703
|
0 |
0 |
if $user |
|
708
|
0 |
3 |
unless ($user) |
|
712
|
0 |
3 |
unless ($name) |
|
716
|
2 |
1 |
unless ($email) |
|
729
|
3 |
0 |
if (not $vendor or $vendor =~ /%/msux) |
|
742
|
4 |
0 |
if (defined $meta) |
|
744
|
4 |
0 |
if ($text and not $text =~ /unknown/imsux) |
|
758
|
1 |
0 |
if (defined $pod) |
|
783
|
3 |
0 |
if (defined $pod) |
|
787
|
0 |
3 |
unless ($description) |
|
804
|
3 |
0 |
if (defined $meta and ref $meta->{'prereqs'} eq 'HASH') { } |
|
841
|
0 |
12 |
unless $module |
|
844
|
0 |
12 |
if $module_name eq "Task::Weaken" |
|
847
|
0 |
12 |
if $module_name =~ /\A (?:VMS | Win32)/msux |
|
857
|
0 |
12 |
if (exists $version_for{$dist_name}) |
|
861
|
12 |
0 |
if (not exists $dependency{$module_name} or $dependency{$module_name}{'version'} < $version) |
|
891
|
3 |
0 |
if (defined $pod) |
|
895
|
0 |
3 |
unless (@copyrights) |
|
897
|
0 |
0 |
$author ? : |
|
913
|
4 |
0 |
if (defined $meta) |
|
915
|
4 |
0 |
if (defined $keys) |
|
916
|
0 |
4 |
unless (ref $keys) |
|
924
|
4 |
0 |
if (@license) |
|
940
|
4 |
0 |
if (defined $pod) |
|
943
|
4 |
0 |
if (@license) |
|
965
|
0 |
3 |
unless ($license) |
|
982
|
0 |
3 |
unless (@licenses) |
|
997
|
0 |
3 |
@names > 1 && /\b OR \b/imsux ? : |
|
1043
|
0 |
5 |
unless opendir my $dh, $dir |
|
1047
|
10 |
5 |
if $entry eq "." or $entry eq ".." |
|
1052
|
0 |
5 |
if -l $path |
|
1054
|
0 |
5 |
if (-d $path) { } |
|
1069
|
0 |
5 |
unless opendir my $dh, $dir |
|
1073
|
10 |
105 |
if $entry eq "." or $entry eq ".." |
|
1078
|
0 |
105 |
if -l $path |
|
1080
|
25 |
80 |
if (-d $path) { } |
|
|
70 |
10 |
elsif (-s $path) { } |
|
1081
|
5 |
20 |
if ($entry eq "examples") |
|
1090
|
20 |
171 |
if ($entry =~ /$regex_for{$type}/u) |
|
1135
|
40 |
20 |
unless $value |
|
1137
|
5 |
15 |
if ($var =~ /arch \z/msux) |
|
1165
|
0 |
40 |
unless opendir my $dh, $dir |
|
1169
|
80 |
47 |
if $entry eq "." or $entry eq ".." |
|
1174
|
35 |
12 |
-d $path ? : |
|
|
0 |
47 |
-l $path ? : |
|
1175
|
12 |
35 |
if ($type eq "file") |
|
1178
|
0 |
12 |
if (exists $subdir{'etc'}) { } |
|
|
5 |
7 |
elsif (exists $subdir{'man'}) { } |
|
1186
|
43 |
4 |
unless (exists $excludedirs->{$name}) |
|
1192
|
0 |
47 |
if -l $path |
|
1194
|
35 |
12 |
if (-d $path) |