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__";} } |