| blib/lib/Getopt/EX/Hashed.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 30 | 83.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 173 | 27 | 163 | 0 | defined $param{'spec'} and $param{'spec'} =~ s/\s*#\s*(.*)//u |
| 213 | 39 | 1 | 4 | $is eq "rw" and $config->{'ACCESSOR_LVALUE'} |
| 259 | 0 | 0 | 1 | @_ == 1 and ref $_[0] eq "ARRAY" |
| 357 | 117 | 0 | 24 | /_/u and $obj->_conf->{'REPLACE_UNDERSCORE'} |
| 358 | 117 | 18 | 6 | /_/u and $obj->_conf->{'REMOVE_UNDERSCORE'} |
| 360 | 0 | 115 | 6 | @names and not $spec =~ /^($spec_re|$)/u |
| line | l | !l | condition |
|---|---|---|---|
| 74 | 423 | 30 | $__DB__{$caller} //= \%{"${caller}::${pkg}::__DB__";} |
| 80 | 187 | 20 | __DB__($_[0])->{'Member'} //= [] |
| 81 | 216 | 30 | __DB__($_[0])->{'Config'} //= {} |
| 320 | 124 | 7 | $obj->_opt_str($member) // (return ()) |
| 332 | 121 | 7 | $m->{'spec'} // (return undef) |
| 373 | 5 | 21 | $action ||= \&Getopt::EX::Hashed::_generic_setter |