| line |
true |
false |
branch |
|
75
|
0 |
25 |
$^O =~ /win32/i ? : |
|
92
|
2 |
4 |
unless (defined $author and defined $repo) |
|
103
|
2 |
4 |
unless (defined $author and defined $repo) |
|
114
|
0 |
2 |
unless defined $module |
|
124
|
2 |
0 |
if (-e $file) |
|
129
|
2 |
0 |
unless (-e $file and $changes_date_count) |
|
139
|
0 |
1 |
unless defined $version |
|
147
|
1 |
2 |
if ($contents->[$_] =~ /^\d+\.\d+\s+/) |
|
166
|
0 |
1 |
if length $m == 1 |
|
167
|
0 |
1 |
if length $d == 1 |
|
170
|
1 |
2 |
if ($contents->[$_] =~ /^(.*)\s+UNREL/) |
|
179
|
2 |
7 |
if (scalar @_ < 2) |
|
190
|
2 |
5 |
if _module_insert_ci_badges($author, $repo, $_) == -1 |
|
198
|
3 |
6 |
if (defined $os and ref $os ne "ARRAY") |
|
204
|
5 |
1 |
if (-e 'MANIFEST.SKIP') { } |
|
205
|
0 |
5 |
unless open my $fh, "<", "MANIFEST.SKIP" |
|
210
|
5 |
0 |
if (grep((!/\.github$/), @makefile_skip_contents)) |
|
212
|
0 |
5 |
unless open my $wfh, ">>", "MANIFEST.SKIP" |
|
219
|
0 |
1 |
unless open my $wfh, ">>", "MANIFEST.SKIP" |
|
233
|
1 |
20 |
if (not defined $args) { } |
|
|
1 |
19 |
elsif (ref $args ne 'HASH') { } |
|
240
|
17 |
2 |
unless defined $file |
|
243
|
15 |
4 |
if (-e $file and -f $file) { } |
|
246
|
0 |
15 |
unless open my $fh, "<", $file |
|
251
|
24 |
7 |
if $conf->{$_} eq "" |
|
262
|
15 |
4 |
if $conf |
|
267
|
0 |
20 |
$^O =~ /win32/i ? : |
|
289
|
2 |
127 |
if ($contents->[$_] =~ /^(Copyright\s+)\d{4}(\s+.*)/) |
|
313
|
4 |
2 |
unless defined $copyright and $copyright =~ /^\d{4}$/ |
|
314
|
2 |
0 |
if defined $copyright |
|
324
|
1 |
4 |
unless (defined $dist_file_name) |
|
328
|
1 |
3 |
unless (-f $dist_file_name) |
|
335
|
2 |
1 |
unless $args{'user'} |
|
336
|
2 |
1 |
unless $args{'password'} |
|
338
|
2 |
1 |
unless ($args{'user'} and $args{'password'}) |
|
342
|
1 |
0 |
if ($args{'dry_run'}) |
|
400
|
1 |
7 |
if ($cwd =~ _dist_dir_re()) |
|
404
|
4 |
3 |
unless exists $args{'license'} |
|
408
|
3 |
15 |
unless (exists $args{$_}) |
|
413
|
1 |
3 |
if (ref $args{'modules'} ne "ARRAY") |
|
417
|
2 |
1 |
if ($args{'verbose'}) { } |
|
435
|
0 |
3 |
unless chdir $module_dir |
|
437
|
0 |
3 |
unless unlink $module_file |
|
442
|
0 |
3 |
unless chdir ".." |
|
469
|
1 |
3 |
unless (defined $module) |
|
476
|
1 |
2 |
unless my(@move_count) = rmove_glob("$module_dir/*", ".") |
|
486
|
1 |
47 |
if ($inner->[$_] != $dist_count->[$outer_idx][$inner_idx][$_]) |
|
493
|
0 |
1 |
unless rmtree($module_dir) |
|
508
|
0 |
0 |
$verbose ? : |
|
510
|
0 |
0 |
if ($? != 0) |
|
520
|
0 |
3 |
$verbose ? : |
|
522
|
0 |
3 |
if ($? != 0) |
|
531
|
0 |
3 |
if ($verbose) { } |
|
532
|
0 |
0 |
if (-f "MANIFEST") |
|
533
|
0 |
0 |
unless unlink "MANIFEST" |
|
541
|
1 |
2 |
if (-f "MANIFEST") |
|
542
|
0 |
1 |
unless unlink "MANIFEST" |
|
550
|
0 |
3 |
if ($? != 0) |
|
559
|
0 |
0 |
if ($verbose) |
|
568
|
0 |
0 |
if ($? != 0) |
|
579
|
5 |
9 |
if (defined $version and $version =~ /^-/) |
|
599
|
3 |
20 |
unless (defined $version_line) |
|
603
|
3 |
17 |
unless (defined $current_version) |
|
607
|
1 |
16 |
if ("version"->parse($current_version) >= "version"->parse($version)) |
|
616
|
0 |
16 |
unless open my $wfh, ">", \$mem_file |
|
621
|
16 |
479 |
if ($line eq $version_line) |
|
639
|
5 |
11 |
unless ($dry_run) |
|
649
|
1 |
502 |
unless defined $version |
|
681
|
0 |
4 |
unless defined $changes |
|
691
|
0 |
2 |
unless open my $fh, ">", $file |
|
709
|
1 |
6 |
if (ref $contents ne "ARRAY") |
|
715
|
2 |
4 |
unless -d ".github/workflows/" |
|
717
|
0 |
6 |
unless open my $fh, ">", $ci_file |
|
727
|
0 |
4 |
if (ref $contents ne "HASH") |
|
735
|
0 |
4 |
unless open my $fh, ">", $file |
|
766
|
0 |
2 |
unless open my $fh, ">", "$dir/.gitignore" |
|
781
|
0 |
8 |
unless defined $mf |
|
791
|
0 |
6 |
unless defined $mf |
|
794
|
2 |
4 |
if grep /META_MERGE/, @$mf |
|
797
|
4 |
47 |
if ($mf->[$_] =~ /MIN_PERL_VERSION/) |
|
808
|
1 |
4 |
unless (defined $makefile) |
|
814
|
1 |
3 |
if grep /bugtracker/, @$mf |
|
816
|
3 |
0 |
if (grep((!/META_MERGE/), @$mf)) |
|
821
|
3 |
44 |
if ($mf->[$_] =~ /resources => \{/) |
|
835
|
1 |
4 |
unless (defined $makefile) |
|
841
|
1 |
3 |
if grep /repository/, @$mf |
|
843
|
3 |
0 |
if (grep((!/META_MERGE/), @$mf)) |
|
848
|
3 |
44 |
if ($mf->[$_] =~ /resources => \{/) |
|
865
|
0 |
2 |
unless open my $fh, ">", "$dir/MANIFEST.SKIP" |
|
878
|
0 |
2 |
unless open my $fh, ">", "$dir/manifest.t" |
|
897
|
33 |
5 |
if (defined $version_line) { } |
|
899
|
33 |
0 |
if ($version_line =~ /=(.*)$/) |
|
908
|
5 |
28 |
unless (defined eval {
do {
"version"->parse($ver);
1
}
}) |
|
930
|
53 |
3209 |
if $_[1]->isa("PPI::Statement::Variable") |
|
935
|
8 |
53 |
if ref $token ne "ARRAY" |
|
946
|
0 |
23 |
unless open my $fh, "<", $file |
|
960
|
1 |
20 |
if (defined $module) { } |
|
980
|
2 |
5 |
if grep /badge\.svg/, @$mf |
|
983
|
3 |
65 |
if ($mf->[$_] =~ /^=head1 NAME/) |
|
996
|
0 |
7 |
unless defined $mod_file |
|
1006
|
0 |
5 |
unless open my $wfh, ">", $module_file |
|
1010
|
0 |
5 |
unless close $wfh |
|
1017
|
1 |
6 |
unless (defined $module_file) |
|
1021
|
2 |
3 |
unless (defined $module and defined $author and defined $email) |
|
1027
|
0 |
3 |
unless open my $wfh, ">", $module_file |
|
1041
|
6 |
0 |
if (defined $copyright_line) { } |
|
1042
|
2 |
4 |
if ($copyright_line =~ /^Copyright\s+(\d{4})\s+\w+/) |
|
1056
|
0 |
6 |
unless open my $fh, "<", $pod_file |
|
1059
|
2 |
127 |
if (/^Copyright\s+\d{4}\s+\w+/) |
|
1079
|
0 |
6 |
unless defined $pod_file |
|
1095
|
0 |
0 |
$^O =~ /win32/i ? : |
|
1103
|
0 |
18 |
unless defined $fs_entry |
|
1105
|
9 |
9 |
if -d $fs_entry |
|
1106
|
6 |
3 |
if -f $fs_entry |
|
1115
|
2 |
515 |
unless defined $version |
|
1117
|
3 |
512 |
if (not defined eval {
do {
"version"->parse($version);
1
}
}) |