| line |
true |
false |
branch |
|
135
|
0 |
0 |
unless &is_module_name(scalar $self->application) |
|
140
|
0 |
0 |
if (my $remote = $self->remote) |
|
142
|
0 |
0 |
unless $scheme =~ / ^ git \@ .+ : .+ \.git $ | ^ http /x |
|
147
|
0 |
0 |
unless -d $path |
|
148
|
0 |
0 |
unless -w $path |
|
150
|
0 |
0 |
if (my $skel = $self->skel) |
|
151
|
0 |
0 |
unless -d $skel |
|
157
|
0 |
0 |
unless $self->no_check |
|
163
|
0 |
0 |
if (my $dir = $self->directory) |
|
169
|
0 |
0 |
if ($pair->[0] =~ m[lib/AppFile.pm$]) |
|
175
|
0 |
0 |
if ($self->docker) |
|
192
|
0 |
0 |
unless ($self->no_package_files) |
|
205
|
0 |
0 |
if (my $remote = $self->remote or $self->git) |
|
221
|
0 |
0 |
unless -x $git |
|
228
|
0 |
0 |
unless chdir "File::Spec"->rel2abs($app_path) |
|
229
|
0 |
0 |
if (_run_shell_cmd('git', 'init') != 0 or _run_shell_cmd('git', 'add', '.') != 0 or _run_shell_cmd('git', 'commit', "-m 'Initial commit of $app_name by Dancer2'") != 0) { } |
|
235
|
0 |
0 |
if ($self->remote and _run_shell_cmd("git", "remote", "add", "origin", $self->remote) != 0) |
|
246
|
0 |
0 |
if (not eval {
do {
&use_module("YAML");
1
}
}) |
|
274
|
0 |
0 |
if ($vars->{'docker'}) |
|
292
|
0 |
0 |
if $self->skel_name ne "default" |
|
320
|
0 |
0 |
unless $file->exists |
|
321
|
0 |
0 |
if $file->basename =~ m[^\.git(/|$)] |
|
322
|
0 |
0 |
if $file->is_dir |
|
336
|
0 |
0 |
if $self->no_package_files and $from =~ /MANIFEST\.SKIP$/ |
|
337
|
0 |
0 |
if $self->no_package_files and $from =~ /Makefile.PL$/ |
|
339
|
0 |
0 |
if (-f $to and not $overwrite) |
|
342
|
0 |
0 |
if $res eq "a" |
|
343
|
0 |
0 |
unless $res eq "y" or $res eq "a" |
|
348
|
0 |
0 |
unless ($to_dir->is_dir) |
|
357
|
0 |
0 |
if $ex |
|
363
|
0 |
0 |
unless open my $fh, "<:raw", $from |
|
368
|
0 |
0 |
unless ($from =~ /\.(db|ico|jpg|png|css|eot|map|swp|ttf|svg|woff|woff2|js)$/) |
|
373
|
0 |
0 |
if ($ex) |
|
374
|
0 |
0 |
unless $to->chmod(493) |
|
383
|
0 |
0 |
unless open my $manifest, ">", $manifest_name |
|
402
|
0 |
0 |
unless open my $fh, ">>", $filename |
|
416
|
0 |
0 |
if $version =~ /_/ |
|
420
|
0 |
0 |
if ($resp->{'success'} and &decode_json($resp->{'content'})->{'version'} =~ /(\d\.\d+)/) { } |
|
422
|
0 |
0 |
if ($latest_version gt $version) |