blib/lib/Getopt/Long/Descriptive.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 31 | 47 | 65.9 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
366 | 0 | 29 | 0 | ref $_[-1] && ref $_[-1] eq 'HASH' |
408 | 86 | 4 | 1 | $opt->{'constraint'}{'shortcircuit'} and exists $opt->{'constraint'}{'default'} |
552 | 19 | 8 | 11 | $CONSTRAINT{$ct} and ref $CONSTRAINT{$ct} eq "CODE" |
577 | 24 | 48 | 4 | not defined $arg{'params'}{$arg{'name'}} and $pvspec{'default'} |
48 | 4 | 0 | not defined $arg{'params'}{$arg{'name'}} and $pvspec{'default'} and $spec->{'implies'} | |
604 | 0 | 0 | 3 | &Scalar::Util::blessed($error) and $error->isa("Getopt::Long::Descriptive::_PV_Error") |
664 | 4 | 0 | 1 | exists $param->{$key} and $param->{$key} ne $val |
4 | 1 | 0 | exists $param->{$key} and $param->{$key} ne $val and grep {$_ eq $key;} @{$$rest{"-given_keys"};} |
line | l | !l | condition |
---|---|---|---|
320 | 97 | 4 | $opt->[0] || '' |
46 | 55 | $opt->[2] || {} | |
97 | 0 | $opt->[0] || '' | |
345 | 78 | 0 | substr($str, $len) // "" |
497 | 10 | 109 | $Getopt::Long::Descriptive::b->{'constraint'}{'shortcircuit'} || 0 |
0 | 119 | $Getopt::Long::Descriptive::a->{'constraint'}{'shortcircuit'} || 0 | |
553 | 0 | 11 | $pvspec{'callbacks'} ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
417 | 0 | 0 | 29 | $arg->{'getopt_conf'} or $arg->{'getopt'} |
470 | 42 | 0 | 0 | $replace{$1} // Carp::croak("unknown sequence %$1 in first argument to describe_options") |
512 | 28 | 0 | 45 | defined $new or exists $return{$name} |