| line |
true |
false |
branch |
|
15
|
19 |
165 |
if @_ == 2 |
|
28
|
0 |
12 |
unless ($fh->syswrite($code) // -1) == length $code |
|
46
|
0 |
2 |
unless $app->_script->{'subcommands'} |
|
51
|
4 |
0 |
if $self->_test('is', $cmd_app->_script->subcommand, $cmd, "$desc - create") |
|
65
|
0 |
11 |
if $name and $name =~ /^\w+/ |
|
81
|
3 |
6 |
if $like |
|
136
|
17 |
21 |
unless my $app = shift() |
|
137
|
12 |
9 |
ref $app ? : |
|
162
|
38 |
4 |
if -e $_ |
|
180
|
2 |
18 |
if ($@) { } |
|
|
1 |
17 |
elsif (not defined $tmp) { } |
|
|
1 |
16 |
elsif (not ref $app && $app->can('_script') && ref $app->_script eq 'Applify') { } |
|
193
|
3 |
18 |
if $@ |
|
194
|
1 |
17 |
unless defined $app |
|
202
|
11 |
29 |
if @_ == 1 |