| 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
|
1 |
0 |
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 ? : |
|
291
|
5 |
139 |
if ($contents->[$_] =~ /^(Copyright\s+)(\d{4})(?:\s*[-,]\s*(\d{4}))?(\s+.*)/) |
|
294
|
2 |
3 |
if (defined $second) { } |
|
326
|
4 |
5 |
unless defined $copyright and $copyright =~ /^\d{4}$/ |
|
327
|
5 |
0 |
if defined $copyright |
|
337
|
1 |
4 |
unless (defined $dist_file_name) |
|
341
|
1 |
3 |
unless (-f $dist_file_name) |
|
348
|
2 |
1 |
unless $args{'user'} |
|
349
|
2 |
1 |
unless $args{'password'} |
|
351
|
2 |
1 |
unless ($args{'user'} and $args{'password'}) |
|
355
|
1 |
0 |
if ($args{'dry_run'}) |
|
413
|
1 |
7 |
if ($cwd =~ _dist_dir_re()) |
|
417
|
4 |
3 |
unless exists $args{'license'} |
|
421
|
3 |
15 |
unless (exists $args{$_}) |
|
426
|
1 |
3 |
if (ref $args{'modules'} ne "ARRAY") |
|
436
|
3 |
0 |
if ($Module::Starter::VERSION >= "1.79") |
|
440
|
2 |
1 |
if ($args{'verbose'}) { } |
|
458
|
0 |
3 |
unless chdir $module_dir |
|
460
|
0 |
3 |
unless unlink $module_file |
|
465
|
0 |
3 |
unless chdir ".." |
|
492
|
1 |
3 |
unless (defined $module) |
|
499
|
1 |
2 |
unless my(@move_count) = rmove_glob("$module_dir/*", ".") |
|
509
|
1 |
47 |
if ($inner->[$_] != $dist_count->[$outer_idx][$inner_idx][$_]) |
|
516
|
0 |
1 |
unless rmtree($module_dir) |
|
531
|
0 |
0 |
$verbose ? : |
|
533
|
0 |
0 |
if ($? != 0) |
|
543
|
0 |
3 |
$verbose ? : |
|
545
|
0 |
3 |
if ($? != 0) |
|
554
|
0 |
3 |
if ($verbose) { } |
|
555
|
0 |
0 |
if (-f "MANIFEST") |
|
556
|
0 |
0 |
unless unlink "MANIFEST" |
|
564
|
1 |
2 |
if (-f "MANIFEST") |
|
565
|
0 |
1 |
unless unlink "MANIFEST" |
|
573
|
0 |
3 |
if ($? != 0) |
|
582
|
0 |
0 |
if ($verbose) |
|
591
|
0 |
0 |
if ($? != 0) |
|
602
|
5 |
9 |
if (defined $version and $version =~ /^-/) |
|
622
|
3 |
20 |
unless (defined $version_line) |
|
626
|
3 |
17 |
unless (defined $current_version) |
|
630
|
1 |
16 |
if ("version"->parse($current_version) >= "version"->parse($version)) |
|
639
|
0 |
16 |
unless open my $wfh, ">", \$mem_file |
|
644
|
16 |
479 |
if ($line eq $version_line) |
|
662
|
5 |
11 |
unless ($dry_run) |
|
672
|
1 |
1005 |
unless defined $version |
|
679
|
1004 |
0 |
$version =~ /\.(\d+)$/ ? : |
|
709
|
0 |
4 |
unless defined $changes |
|
719
|
0 |
2 |
unless open my $fh, ">", $file |
|
737
|
1 |
6 |
if (ref $contents ne "ARRAY") |
|
743
|
2 |
4 |
unless -d ".github/workflows/" |
|
745
|
0 |
6 |
unless open my $fh, ">", $ci_file |
|
755
|
0 |
4 |
if (ref $contents ne "HASH") |
|
763
|
0 |
4 |
unless open my $fh, ">", $file |
|
794
|
0 |
2 |
unless open my $fh, ">", "$dir/.gitignore" |
|
809
|
0 |
8 |
unless defined $mf |
|
819
|
0 |
6 |
unless defined $mf |
|
822
|
2 |
4 |
if grep /META_MERGE/, @$mf |
|
825
|
4 |
47 |
if ($mf->[$_] =~ /MIN_PERL_VERSION/) |
|
836
|
1 |
4 |
unless (defined $makefile) |
|
842
|
1 |
3 |
if grep /bugtracker/, @$mf |
|
844
|
3 |
0 |
if (grep((!/META_MERGE/), @$mf)) |
|
849
|
3 |
44 |
if ($mf->[$_] =~ /resources => \{/) |
|
863
|
1 |
4 |
unless (defined $makefile) |
|
869
|
1 |
3 |
if grep /repository/, @$mf |
|
871
|
3 |
0 |
if (grep((!/META_MERGE/), @$mf)) |
|
876
|
3 |
44 |
if ($mf->[$_] =~ /resources => \{/) |
|
893
|
0 |
2 |
unless open my $fh, ">", "$dir/MANIFEST.SKIP" |
|
906
|
0 |
2 |
unless open my $fh, ">", "$dir/manifest.t" |
|
925
|
33 |
5 |
if (defined $version_line) { } |
|
927
|
33 |
0 |
if ($version_line =~ /=(.*)$/) |
|
936
|
5 |
28 |
unless (defined eval {
do {
"version"->parse($ver);
1
}
}) |
|
958
|
53 |
3209 |
if $_[1]->isa("PPI::Statement::Variable") |
|
963
|
8 |
53 |
if ref $token ne "ARRAY" |
|
974
|
0 |
23 |
unless open my $fh, "<", $file |
|
988
|
1 |
20 |
if (defined $module) { } |
|
1008
|
2 |
5 |
if grep /badge\.svg/, @$mf |
|
1011
|
3 |
65 |
if ($mf->[$_] =~ /^=head1 NAME/) |
|
1024
|
0 |
7 |
unless defined $mod_file |
|
1034
|
0 |
5 |
unless open my $wfh, ">", $module_file |
|
1038
|
0 |
5 |
unless close $wfh |
|
1045
|
1 |
6 |
unless (defined $module_file) |
|
1049
|
2 |
3 |
unless (defined $module and defined $author and defined $email) |
|
1055
|
0 |
3 |
unless open my $wfh, ">", $module_file |
|
1069
|
9 |
0 |
if (defined $copyright_line) { } |
|
1070
|
5 |
4 |
if ($copyright_line =~ /^Copyright\s+(\d{4})(?:\s*[-,]\s*(\d{4}))?\s+\w+/) |
|
1072
|
2 |
3 |
defined $2 ? : |
|
1085
|
0 |
9 |
unless open my $fh, "<", $pod_file |
|
1088
|
5 |
139 |
if (/^Copyright\s+\d{4}(?:\s*[-,]\s*\d{4})?\s+\w+/) |
|
1108
|
0 |
9 |
unless defined $pod_file |
|
1124
|
0 |
0 |
$^O =~ /win32/i ? : |
|
1132
|
0 |
20 |
unless defined $fs_entry |
|
1134
|
11 |
9 |
if -d $fs_entry |
|
1135
|
6 |
3 |
if -f $fs_entry |
|
1144
|
2 |
1018 |
unless defined $version |
|
1146
|
3 |
1015 |
if (not defined eval {
do {
"version"->parse($version);
1
}
}) |