blib/lib/YATT/Lite/Util/CmdLine.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 12 | 29 | 41.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
17 | 3 | 2 | 11 | @$list and my($n, $v) = $list->[0] =~ /^--$ | ^(?:--? ([\w:\-\.]+) (?: =(.*))?)$/sx |
21 | 8 | 2 | 0 | $alias and $alias->{$n} |
29 | 0 | 1 | 5 | $wantarray && ref $result ne 'HASH' |
41 | 2 | 1 | 5 | @$list and $list->[0] =~ /^([^=]+)=(.*)/s |
44 | 0 | 0 | 3 | not $explicit and wantarray |
81 | 0 | 0 | 0 | @res == 1 and not $res[0] |
0 | 0 | 0 | @res == 1 and defined $res[0] | |
0 | 0 | 0 | @res == 1 and defined $res[0] and $res[0] eq 1 |
line | l | !l | condition |
---|---|---|---|
64 | 1 | 0 | shift @$list || 'help' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
81 | 0 | 0 | 0 | not @res or @res == 1 and not $res[0] |