| blib/lib/Getopt/EX/Hashed.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 28 | 82.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 159 | 2 | 36 | 1 | $config->{'ACCESSOR_LVALUE'} and $is eq "rw" |
| 182 | 0 | 0 | 1 | @_ == 1 and ref $_[0] eq "ARRAY" |
| 258 | 117 | 0 | 16 | /_/u and $obj->_conf->{'REPLACE_UNDERSCORE'} |
| 259 | 117 | 10 | 6 | /_/u and $obj->_conf->{'REMOVE_UNDERSCORE'} |
| 261 | 0 | 107 | 6 | @names and not $spec =~ /^($spec_re|$)/u |
| line | l | !l | condition |
|---|---|---|---|
| 55 | 172 | 17 | __DB__(@_)->{'Member'} //= [] |
| 56 | 196 | 27 | __DB__(@_)->{'Config'} //= {} |
| 228 | 116 | 7 | $obj->_opt_str($member) // (return ()) |
| 237 | 113 | 7 | $m->{'spec'} // (return undef) |
| 271 | 5 | 21 | $action ||= \&Getopt::EX::Hashed::_generic_setter |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 49 | 385 | 27 | 0 | $__DB__{$_[0]} //= do { no strict 'refs'; state $sub = "Getopt::EX::Hashed" =~ s/::/_/gru; \%{"$_[0]::${sub}::__DB__";} } |