| 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 |
78 |
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
|
0 |
8 |
if ($entry eq "perllocal.pod" or $entry eq ".packlist" or $entry =~ /[.]la \z/msux 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}) |
|
554
|
3 |
0 |
if (-f $metafile) |
|
556
|
3 |
0 |
if defined $meta |
|
593
|
0 |
3 |
unless (defined $stagingdir) |
|
612
|
0 |
3 |
unless (defined $stagingdir) |
|
617
|
3 |
0 |
if ($is_noarch) |
|
620
|
3 |
0 |
if (defined $archdir) |
|
622
|
0 |
3 |
if (-d $autodir) |
|
639
|
3 |
0 |
if (-f $filename) |
|
652
|
1 |
0 |
if (defined $author and ref $author ne "CPANPLUS::Module::Author::Fake") |
|
670
|
0 |
3 |
if ($self->rpm_eval("%{?packager}") =~ /$EMAIL/u) |
|
675
|
3 |
0 |
unless ($name) |
|
678
|
1 |
6 |
if ($ENV{$key}) |
|
680
|
1 |
0 |
if $name |
|
686
|
1 |
8 |
if ($ENV{$key}) |
|
688
|
1 |
0 |
if ($value and $value =~ /$EMAIL/u) |
|
689
|
0 |
1 |
unless ($name) |
|
692
|
1 |
0 |
unless ($email) |
|
702
|
3 |
0 |
if (@pw) |
|
705
|
2 |
1 |
unless ($name) |
|
707
|
2 |
0 |
if ($gecos) |
|
713
|
0 |
3 |
unless ($user) |
|
716
|
0 |
0 |
if ($ENV{$key}) |
|
718
|
0 |
0 |
if $user |
|
723
|
0 |
3 |
unless ($user) |
|
727
|
0 |
3 |
unless ($name) |
|
731
|
2 |
1 |
unless ($email) |
|
733
|
0 |
2 |
unless ($host) |
|
747
|
3 |
0 |
if (not $vendor or $vendor =~ /%/msux) |
|
760
|
4 |
0 |
if (defined $meta) |
|
762
|
4 |
0 |
if ($text and not $text =~ /unknown/imsux) |
|
776
|
1 |
0 |
if (defined $pod) |
|
801
|
3 |
0 |
if (defined $pod) |
|
805
|
0 |
3 |
unless ($description) |
|
822
|
3 |
0 |
if (defined $meta and ref $meta->{'prereqs'} eq 'HASH') { } |
|
862
|
0 |
12 |
unless $module |
|
865
|
0 |
12 |
if $module_name eq "Task::Weaken" |
|
868
|
0 |
12 |
if $module_name =~ /\A (?:VMS | Win32)/msux |
|
878
|
0 |
12 |
if (exists $version_for{$module_name}) |
|
882
|
12 |
0 |
if (not exists $dependency{$module_name} or $dependency{$module_name}{'version'} < $version) |
|
912
|
3 |
0 |
if (defined $pod) |
|
916
|
0 |
3 |
unless (@copyrights) |
|
918
|
0 |
0 |
$author ? : |
|
934
|
4 |
0 |
if (defined $meta) |
|
936
|
4 |
0 |
if (defined $keys) |
|
937
|
0 |
4 |
unless (ref $keys) |
|
945
|
4 |
0 |
if (@license) |
|
961
|
4 |
0 |
if (defined $pod) |
|
964
|
4 |
0 |
if (@license) |
|
986
|
0 |
3 |
unless ($license) |
|
1003
|
0 |
3 |
unless (@licenses) |
|
1018
|
0 |
3 |
if (@names > 1 and /\b OR \b/imsux) { } |
|
1064
|
0 |
5 |
unless opendir my $dh, $dir |
|
1068
|
10 |
5 |
if $entry eq "." or $entry eq ".." |
|
1073
|
0 |
5 |
if -l $path |
|
1075
|
0 |
5 |
if (-d $path) { } |
|
1090
|
0 |
5 |
unless opendir my $dh, $dir |
|
1094
|
10 |
100 |
if $entry eq "." or $entry eq ".." |
|
1099
|
0 |
100 |
if -l $path |
|
1101
|
25 |
75 |
if (-d $path) { } |
|
|
70 |
5 |
elsif (-s $path) { } |
|
1102
|
5 |
20 |
if ($entry eq "examples") |
|
1111
|
20 |
170 |
if ($entry =~ /$regex_for{$type}/u) |
|
1156
|
40 |
20 |
unless $value |
|
1158
|
5 |
15 |
if ($var =~ /arch \z/msux) |
|
1186
|
0 |
40 |
unless opendir my $dh, $dir |
|
1190
|
80 |
47 |
if $entry eq "." or $entry eq ".." |
|
1195
|
35 |
12 |
-d $path ? : |
|
|
0 |
47 |
-l $path ? : |
|
1196
|
12 |
35 |
if ($type eq "file") |
|
1199
|
0 |
12 |
if (exists $subdir{'etc'}) { } |
|
|
5 |
7 |
elsif (exists $subdir{'man'}) { } |
|
1207
|
43 |
4 |
unless (exists $excludedirs->{$name}) |
|
1213
|
0 |
47 |
if -l $path |
|
1215
|
35 |
12 |
if (-d $path) |