| line |
!l |
l&&!r |
l&&r |
condition |
|
45
|
0 |
0 |
0 |
$fn =~ /\A(.+)[.]pm\z/msu and -f "$path/$fn"
|
|
65
|
0 |
0 |
0 |
$class->can('does') and $class->does('Pcore::Core::CLI::Cmd')
|
|
119
|
0 |
0 |
0 |
$next_arg == 1 and $arg->min != 0
|
|
204
|
0 |
0 |
0 |
not $$res{'cmd'} and substr($arg, 0, 1) ne '-'
|
|
215
|
0 |
0 |
0 |
defined $argv and @$argv
|
|
218
|
0 |
0 |
0 |
$ENV->can_scan_deps and $$res{'opt'}{'scan-deps'}
|
|
313
|
0 |
5 |
0 |
defined $argv and @$argv
|
|
317
|
5 |
0 |
0 |
$ENV->can_scan_deps and $$res{'opt'}{'scan-deps'}
|
|
348
|
5 |
0 |
0 |
$class->can('CLI_VALIDATE') and defined(my $error_msg = $class->CLI_VALIDATE($$res{'opt'}, $$res{'arg'}, $$res{'rest'}))
|
|
367
|
5 |
0 |
0 |
$class->can('CLI') and my $spec = $class->CLI
|
|
375
|
0 |
0 |
0 |
$$spec{'cmd'} and not XXX
|
|
377
|
0 |
0 |
0 |
$$spec{'name'} and not XXX
|