| blib/lib/Config/Natural.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 53 | 37.7 |
| line | l | !l | condition |
|---|---|---|---|
| 108 | 0 | 0 | carp("Class option '${arg}' does not exist") and next |
| 114 | 0 | 0 | carp("Class option '${arg}' does not exist") and next |
| 238 | 0 | 0 | $value = $prev_value . $value and $append = 0 |
| 264 | 0 | 1 | push(@$prev_value, split(m[$/], $value, 0)) && ($append = 0) |
| 328 | 0 | 0 | carp("Parameter '${arg}' does not exist") and next |
| 402 | 0 | 0 | carp("Undefined value for parameter '${arg}'") and next |
| 559 | 0 | 0 | carp("Parameter '${param}' does not exist") and next |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 280 | 0 | 0 | 0 | exists $$root_param{$field} and not exists $$root_param{$surrlist} |
| 542 | 18 | 4 | 18 | ref $node and $index ne '*' |
| line | l | !l | condition |
|---|---|---|---|
| 306 | 2 | 104 | shift() || 'r' |
| 534 | 5 | 18 | $index ||= 0 |
| 541 | 12 | 28 | $index ||= 0 |
| 603 | 0 | 5 | $$args{'set'}{'prefix'} || '' |
| 604 | 0 | 5 | $$args{'set'}{'suffix'} || '' |
| 605 | 0 | 5 | $$args{'set'}{'nospace'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 67 | 209 | 0 | 0 | ref $self || croak(q[I am not an object, so don't call me that way.]) |
| 71 | 0 | 209 | 0 | exists $options{$name} or defined $$self{'options'}{$name} |
| 108 | 0 | 0 | 0 | exists $options{$arg} or $options{'quiet'} |
| 114 | 15 | 0 | 0 | exists $options{$arg} or $options{'quiet'} |
| 328 | 136 | 0 | 3 | exists $$self{'param'}{_case_($self, $arg)} or $options{'quiet'} |
| 402 | 22 | 0 | 0 | defined $val or $options{'quiet'} |
| 559 | 184 | 0 | 0 | exists $$self{'param'}{_case_($self, $param)} or $options{'quiet'} |