| blib/lib/Zoidberg/Utils/GetOpt.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 48 | 52.0 |
| line | l | !l | condition |
|---|---|---|---|
| 59 | 0 | 1 | ++$delim and last |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 24 | 23 | 48 | 15 | $conf and $args[0] =~ /^[+-]/ |
| 64 | 14 | 0 | 3 | exists $conf{'_glob'} and $raw =~ /$conf{'_glob'}/ |
| 6 | 5 | 3 | $pre ne '--' and length $opt > 1 | |
| 111 | 1 | 13 | 1 | not $delim and grep /^-/, @args |
| 121 | 34 | 0 | 0 | ref $args[0] and @args == 1 |
| 127 | 2 | 0 | 19 | ref $args[0] and @args == 1 |
| 188 | 0 | 0 | 0 | $usage and not $o |
| 0 | 0 | 0 | $usage and not $o and not /^=item\s+$cmd/ |
| line | l | !l | condition |
|---|---|---|---|
| 35 | 1 | 1 | $conf{'_glob'} ||= [] |
| 103 | 3 | 3 | $opts{$opt} ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 0 | 0 | 2 | @al or not length $_ |
| 50 | 0 | 4 | 44 | exists $conf{'_alias'}{'-' . $$_[0]} or exists $conf{'_alias'}{$$_[0]} |
| 64 | 1 | 9 | 17 | exists $conf{'_alias'}{$raw} or exists $conf{$raw} |
| 172 | 0 | 0 | 0 | $cmd ||= (caller 1)[3] |
| 179 | 0 | 0 | 0 | $file || error("Could not read $file") |
| 214 | 0 | 0 | 0 | ${$class . '::LONG_VERSION';} || $class . ' ' . ${$class . '::VERSION';} |