blib/lib/Getopt/O2.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 29 | 35 | 82.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
47 | 1 | 1 | 44 | defined $arg && length $arg |
84 | 1 | 1 | 1 | defined $rule and $rule->negatable |
117 | 9 | 8 | 5 | $rule->is_list and not defined $self->{'options'}{$rule->long} |
140 | 2 | 3 | 1 | $rule->keep_unique and $arg ~~ \@{$self->{'options'}{$rule->long};} |
186 | 1 | 1 | 21 | defined $value && length $value |
455 | 2 | 0 | 0 | $show_default and defined $self->{'default'} |
462 | 1 | 0 | 0 | $show_default && defined $self->{'default'} |
line | l | !l | condition |
---|---|---|---|
403 | 0 | 6 | $options{'keep_unique'} // 1 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
47 | 2 | 1 | 43 | not defined $arg && length $arg or '-' eq $arg |
3 | 2 | 41 | not defined $arg && length $arg or '-' eq $arg or not $arg =~ /^-/ | |
186 | 2 | 1 | 20 | not defined $value && length $value or '-' eq $value |
3 | 20 | 0 | not defined $value && length $value or '-' eq $value or not $value =~ /^-/ |