Branch Coverage

blib/lib/App/git/ship/perl.pm
Criterion Covered Total %
branch 15 116 12.9


line true false branch
22 0 0 if $self->config('build_test_options')
26 0 0 if -e 'cpanfile'
38 0 0 $file =~ /\.pm$/ ? :
0 1 if $file
47 0 0 if -e 'Makefile'
49 0 0 if $all
53 0 0 unless -e $file
54 0 0 unless unlink $file
55 0 0 unless $self->SILENT
70 0 0 unless ($dist_file)
75 0 0 unless ($self->config('next_version'))
79 0 0 unless /^$VERSION_RE\s*/
87 0 0 if -e 'README.md'
98 0 0 if (my $file = $_[0])
99 0 0 $file =~ /^.?lib/ ? :
101 0 0 unless (-e $file)
104 0 0 unless chdir $work_dir
106 0 0 unless open my $MAINMODULE, '>>', $self->config('main_module_path')
115 0 0 if $changelog eq 'Changes'
119 0 0 if @_
126 0 0 unless (eval 'require Devel::Cover; 1')
142 0 0 if -e 'cpanfile'
143 0 0 if $self->config('changelog_filename') eq 'Changes'
150 0 1 unless (grep {-w $_;} 'CHANGELOG.md', 'Changes')[0]
155 0 0 if $ENV{'GIT_SHIP_CONTRIBUTORS'}
161 0 0 if ($line =~ /$CONTRIB_START_RE/)
165 0 0 if $line =~ /$CONTRIB_END_RE/
166 0 0 unless $contrib_block
168 0 0 if ($line =~ /$CONTRIB_NAME_EMAIL_RE/) { }
0 0 elsif ($line =~ /$CONTRIB_NAME_RE/) { }
185 0 3 if $ENV{'GIT_SHIP_MAIN_MODULE_PATH'}
192 0 9 unless opendir my $DH, $path
197 0 9 unless lc $_ eq lc $p
199 3 6 unless -d $path
210 3 0 if $name[0] eq 'lib'
223 1 8 if @message and /^$VERSION_RE\s+/
224 5 3 if @message
225 1 7 if /^$VERSION_RE\s+/
228 0 1 unless @message
270 0 0 unless (-r $file)
284 0 0 unless -e 'Makefile.PL'
285 0 0 unless -e 'Makefile'
310 0 0 if (-e 'README.md') { }
0 0 elsif (my(@alternative) = path()->list->grep(sub { /^README/i; } )->each) { }
312 0 0 path('README.md')->slurp =~ /$re/ ? :
318 0 0 if ($skip)
319 0 0 unless $self->SILENT
323 0 0 unless open my $README, '>:encoding(UTF-8)', 'README.md'
327 0 0 unless $self->SILENT
349 0 0 if s/^$VERSION_RE\x20*(?:Not Released)?\x20*([\r\n]+)/{ &$release_line($1) . $2; } ;/e
354 0 0 unless $self->SILENT
355 0 0 unless $self->config('next_version')
361 0 0 unless (eval 'require CPAN::Changes; 1')
362 0 0 unless $self->SILENT
371 0 0 unless $self->SILENT
376 0 0 unless my $version = $self->config('next_version')
383 0 0 if /^=head1 VERSION/ .. $r{'pod'} && /^=(cut|head1)/ || eof
388 0 0 unless $r{'var'}