| line |
true |
false |
branch |
|
17
|
30 |
194 |
if @_ == 2 |
|
30
|
0 |
20 |
unless ($fh->syswrite($code) // -1) == length $code |
|
48
|
0 |
2 |
unless $app->_script->{'subcommands'} |
|
53
|
4 |
0 |
if $self->_test('is', $cmd_app->_script->subcommand, $cmd, "$desc - create") |
|
67
|
0 |
14 |
if $name and $name =~ /^\w+/ |
|
83
|
3 |
6 |
if $like |
|
136
|
25 |
32 |
unless my $app = shift() |
|
137
|
21 |
11 |
ref $app ? : |
|
198
|
58 |
4 |
if -e $_ |
|
224
|
2 |
28 |
if ($@) { } |
|
|
1 |
27 |
elsif (not defined $tmp) { } |
|
|
1 |
26 |
elsif (not ref $app && $app->can('_script') && ref $app->_script eq 'Applify') { } |
|
237
|
3 |
28 |
if $@ |
|
238
|
1 |
27 |
unless defined $app |
|
246
|
13 |
41 |
if @_ == 1 |