blib/lib/Getopt/O2.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 29 | 35 | 82.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
48 | 1 | 1 | 44 | defined $arg && length $arg |
85 | 1 | 1 | 1 | defined $rule and $rule->negatable |
118 | 9 | 8 | 5 | $rule->is_list and not defined $self->{'options'}{$rule->long} |
141 | 2 | 3 | 1 | $rule->keep_unique and $arg ~~ \@{$self->{'options'}{$rule->long};} |
187 | 1 | 1 | 21 | defined $value && length $value |
456 | 2 | 0 | 0 | $show_default and defined $self->{'default'} |
463 | 1 | 0 | 0 | $show_default && defined $self->{'default'} |
line | l | !l | condition |
---|---|---|---|
404 | 0 | 6 | $options{'keep_unique'} // 1 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
48 | 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 =~ /^-/ | |
187 | 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 =~ /^-/ |