| line |
true |
false |
branch |
|
26
|
0 |
0 |
if ($^O eq "MSWin32")
|
|
37
|
0 |
0 |
if (eval {
|
|
56
|
2 |
0 |
if ($self->installdirs eq 'site') { }
|
|
|
0 |
0 |
elsif ($self->installdirs eq 'vendor') { }
|
|
65
|
0 |
2 |
if (my $etc = $self->etcdir)
|
|
71
|
0 |
2 |
if (my $dir = $self->install_base || $self->prefix)
|
|
85
|
0 |
0 |
$self->destdir ? :
|
|
90
|
0 |
0 |
if (-e $tmpl_dir and -d _)
|
|
92
|
0 |
0 |
if (opendir my $dh, $tmpl_dir)
|
|
94
|
0 |
0 |
unless $bn =~ /^(deploy|verify|revert)[.]tmpl([.]default)?$/
|
|
97
|
0 |
0 |
if ($default)
|
|
105
|
0 |
0 |
unless File::Path::mkpath($action_dir)
|
|
109
|
0 |
0 |
unless File::Copy::copy($file, $dest)
|
|
122
|
0 |
0 |
if ($notify)
|
|
157
|
0 |
1 |
if (my $ddir = $self->destdir)
|
|
162
|
32 |
6 |
if -f $_
|
|
174
|
32 |
0 |
if (-e "File::Spec"->catfile($etc, $rel) or $segs[0] eq "templates" and $fn =~ /^(?:pg|sqlite)[.]tmpl$/ and -e "File::Spec"->catfile($etc, "templates", "$segs[1].tmpl"))
|
|
208
|
0 |
0 |
if $] > "5.01"
|
|
212
|
0 |
0 |
unless my $FIXIN = "IO::File"->new($file)
|
|
215
|
0 |
0 |
unless $line =~ s/^\s*\#!\s*//
|
|
218
|
0 |
0 |
unless $cmd =~ /perl/i and $arg =~ s/ -C\w+//
|
|
221
|
0 |
0 |
unless my $FIXOUT = "IO::File"->new(">$file.new")
|
|
229
|
0 |
0 |
unless rename $file, "$file.bak"
|
|
232
|
0 |
0 |
unless rename "$file.new", $file
|
|
235
|
0 |
0 |
unless $self->delete_filetree("$file.bak")
|
|
245
|
0 |
0 |
unless my $base = $self->install_base
|
|
253
|
0 |
0 |
unless ref $feat
|
|
266
|
0 |
0 |
if ($self->dual_life)
|
|
274
|
0 |
0 |
if $app->run
|
|
280
|
0 |
0 |
if $app->run
|
|
283
|
0 |
0 |
unless $app->remove_build_dependencies
|
|
310
|
0 |
0 |
unless my $result = $self->copy_if_modified($script, $bin, "flatten")
|
|
311
|
0 |
0 |
unless $self->is_vmsish
|