| line |
l |
!l&&r |
!l&&!r |
condition |
|
46
|
0 |
0 |
0 |
$chars[0] // _chars()->[0] |
|
50
|
0 |
0 |
0 |
$chars[1] // _chars()->[1] |
|
91
|
2 |
0 |
0 |
shift() // Carp::croak("Usage", "croak(\$TYPE, [\$msg])") |
|
93
|
2 |
0 |
0 |
shift() // "($pkg)" |
|
108
|
14 |
0 |
0 |
shift() || croak('Usage', 'class_optargs($CMD,[@argv])') |
|
111
|
14 |
0 |
0 |
$COMMAND{$class} || croak('CmdNotFound', 'command class not found: ' . $class) |
|
125
|
11 |
0 |
0 |
shift() || croak('Usage', 'cmd($CLASS,@args)') |
|
146
|
6 |
0 |
0 |
shift() || croak('Usage', 'subcmd($CLASS,%%args)') |
|
167
|
0 |
0 |
0 |
shift() || do {
my($pkg) = caller;
$pkg
} |
|
185
|
0 |
0 |
0 |
$CURRENT //= cmd($class, "comment", "") |
|
197
|
0 |
0 |
0 |
$CURRENT //= cmd($class, "comment", "") |