| line |
true |
false |
branch |
|
42
|
0 |
2 |
if ($_ eq 'include') { } |
|
|
0 |
2 |
elsif ($_ eq 'exclude') { } |
|
|
0 |
2 |
elsif ($_ eq 'debug') { } |
|
44
|
0 |
0 |
if $@ |
|
48
|
0 |
0 |
if $@ |
|
61
|
0 |
7 |
if ($$c{'debug'}) |
|
79
|
1 |
1 |
if ($plugin =~ s/^\+//) { } |
|
86
|
0 |
2 |
if $@ |
|
90
|
0 |
2 |
unless keys %methods > 0 |
|
96
|
2 |
2 |
if substr($method, 0, 1) eq '_' |
|
124
|
37 |
214 |
if (defined $value and defined *SYMBOL{'CODE'}) |
|
142
|
0 |
0 |
if (defined $subs{$_}) |
|
154
|
2 |
0 |
defined $ARGV[0] && substr($ARGV[0], 0, 1) ne '-' ? : |
|
177
|
6 |
9 |
if (/^\-([^\-\=]+)$/o) { } |
|
|
6 |
3 |
elsif (/^\-\-([^\-\=]+)(?:\=(.+))?$/o) { } |
|
180
|
3 |
9 |
if ($c->options->{$_}) { } |
|
190
|
4 |
2 |
defined $2 ? : |
|
220
|
1 |
0 |
if (ref $item) { } |
|
221
|
0 |
1 |
unless ref $item eq 'HASH' |
|
224
|
3 |
0 |
if ($params eq '-ignore_prefix' or $params eq '-ignore_suffix' or $params eq '-ignore_regexp') { } |
|
246
|
0 |
0 |
unless (defined $$c{'_functions'}{$_}) |
|
249
|
0 |
0 |
if (exists $subs{$_}) { } |
|
261
|
1 |
0 |
if (not %help_for_sub or %rules) |
|
266
|
32 |
1 |
unless (defined $$c{'_functions'}{$subname}) |
|
268
|
32 |
0 |
if ($rules{'-ignore_prefix'}) |
|
269
|
1 |
31 |
if substr($subname, 0, length $rules{'-ignore_prefix'}) eq $rules{'-ignore_prefix'} |
|
273
|
31 |
0 |
if ($rules{'-ignore_suffix'}) |
|
274
|
1 |
30 |
if substr($subname, length($subname) - length($rules{'-ignore_suffix'}), length $rules{'-ignore_suffix'}) eq $rules{'-ignore_suffix'} |
|
281
|
30 |
0 |
if ($rules{'-ignore_regexp'}) |
|
283
|
1 |
29 |
if $subname =~ /$re/o |
|
287
|
29 |
0 |
unless (exists $help_for_sub{$subname}) |
|
302
|
0 |
7 |
unless ref $coderef eq 'CODE' |
|
314
|
0 |
0 |
if ($$c{'_commands'}{$command_name}) { } |
|
326
|
0 |
0 |
if (/^cmd(\d+)$/) |
|
327
|
0 |
0 |
if $1 > $id |
|
341
|
3 |
4 |
defined $$c{'_commands'}{$cmd} ? : |
|
392
|
0 |
0 |
if ($cmd) { } |
|
405
|
0 |
0 |
if ($c->is_command($$c{'cmd'})) { } |
|
|
0 |
0 |
elsif ($cmd eq '') { } |
|
442
|
0 |
1 |
unless $Getopt::Long::VERSION >= 2.36 |
|
462
|
0 |
23 |
if ((shift())->{'debug'}) |
|
471
|
0 |
0 |
if (@msg) { } |
|
493
|
0 |
0 |
if ($c->output) |