| line |
true |
false |
branch |
|
44
|
0 |
0 |
if ($_ eq 'include') { } |
|
|
0 |
0 |
elsif ($_ eq 'exclude') { } |
|
|
0 |
0 |
elsif ($_ eq 'debug') { } |
|
46
|
0 |
0 |
if $@ |
|
50
|
0 |
0 |
if $@ |
|
63
|
0 |
0 |
if ($$c{'debug'}) |
|
80
|
0 |
0 |
if ($plugin =~ s/^\+//) { } |
|
87
|
0 |
0 |
if $@ |
|
91
|
0 |
0 |
unless keys %methods > 0 |
|
98
|
0 |
0 |
if substr($method, 0, 1) eq '_' |
|
126
|
0 |
0 |
if (defined $value and defined *SYMBOL{'CODE'}) |
|
143
|
0 |
0 |
if (defined $subs{$_}) |
|
156
|
0 |
0 |
if ($$c{'_globals'}) |
|
165
|
0 |
0 |
if (defined $ARGV[0]) |
|
169
|
0 |
0 |
if (substr($ARGV[0], 0, 1) ne '-') |
|
174
|
0 |
0 |
if ($c->is_command($cmd)) { } |
|
203
|
0 |
0 |
if ($arg =~ /^\-([^\-\=]+)$/o) { } |
|
|
0 |
0 |
elsif ($arg =~ /^\-\-([^\-\=]+)(?:\=(.+))?$/o) { } |
|
215
|
0 |
0 |
if (defined $cmd_obj) |
|
217
|
0 |
0 |
unless ($opt) |
|
225
|
0 |
0 |
defined $c->options->{$opt} ? : |
|
231
|
0 |
0 |
defined $c->stash->{$stash_key} ? : |
|
242
|
0 |
0 |
defined $2 ? : |
|
252
|
0 |
0 |
if (defined $cmd_obj) |
|
259
|
0 |
0 |
unless ($key) |
|
270
|
0 |
0 |
unless ($to_stash) |
|
271
|
0 |
0 |
unless ($key and $val) |
|
272
|
0 |
0 |
defined $$cmd_obj{'args'}{$1}{'default'} ? : |
|
|
0 |
0 |
defined $2 ? : |
|
291
|
0 |
0 |
if $key |
|
294
|
0 |
0 |
if defined $$cmd_obj{'args'}{$key}{'conflicts_with'} |
|
303
|
0 |
0 |
if (@conflicts_with) |
|
305
|
0 |
0 |
if (grep {$name eq $$_{'conflict'};} @conflicts_with) |
|
361
|
0 |
0 |
if (ref $item) { } |
|
362
|
0 |
0 |
unless ref $item eq 'HASH' |
|
367
|
0 |
0 |
if ref $$item{$params} and ref $$item{$params} ne 'HASH' |
|
373
|
0 |
0 |
if ($params eq '-ignore_prefix' or $params eq '-ignore_suffix' or $params eq '-ignore_regexp') { } |
|
396
|
0 |
0 |
caller 2 && caller 2 ne 'App::Rad' && caller 2 ne 'App::Rad::Shell' ? : |
|
411
|
0 |
0 |
unless (defined $$c{'_functions'}{$cmd}) |
|
413
|
0 |
0 |
if ($cmd eq '-globals') { } |
|
|
0 |
0 |
elsif (exists $subs{$cmd}) { } |
|
418
|
0 |
0 |
if (ref $help_for_sub{$cmd}) |
|
439
|
0 |
0 |
if (not %help_for_sub or %rules) |
|
444
|
0 |
0 |
unless (defined $$c{'_functions'}{$subname}) |
|
446
|
0 |
0 |
if ($rules{'-ignore_prefix'}) |
|
449
|
0 |
0 |
if substr($subname, 0, length $rules{'-ignore_prefix'}) eq $rules{'-ignore_prefix'} |
|
455
|
0 |
0 |
if ($rules{'-ignore_suffix'}) |
|
458
|
0 |
0 |
if substr($subname, length($subname) - length($rules{'-ignore_suffix'}), length $rules{'-ignore_suffix'}) eq $rules{'-ignore_suffix'} |
|
466
|
0 |
0 |
if ($rules{'-ignore_regexp'}) |
|
468
|
0 |
0 |
if $subname =~ /$re/o |
|
472
|
0 |
0 |
unless (exists $help_for_sub{$subname}) |
|
486
|
0 |
0 |
unless ref $coderef eq 'CODE' |
|
495
|
0 |
0 |
if ($extra) |
|
496
|
0 |
0 |
if (ref $extra) { } |
|
505
|
0 |
0 |
unless $cmd_obj |
|
519
|
0 |
0 |
if ($$c{'_commands'}{$command_name}) { } |
|
530
|
0 |
0 |
if (/^cmd(\d+)$/) |
|
531
|
0 |
0 |
if $1 > $id |
|
544
|
0 |
0 |
defined $$c{'_commands'}{$cmd} ? : |
|
582
|
0 |
0 |
if (not defined $cmd) { } |
|
|
0 |
0 |
elsif ($cmd eq '') { } |
|
623
|
0 |
0 |
if ($cmd) { } |
|
631
|
0 |
0 |
if ($c->is_command($cmd)) { } |
|
663
|
0 |
0 |
unless $Getopt::Long::VERSION >= 2.36 |
|
684
|
0 |
0 |
if ((shift())->{'debug'}) |
|
693
|
0 |
0 |
if (@msg) { } |
|
714
|
0 |
0 |
if ($c->output) |