| blib/lib/OptArgs2/SubCmd.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 11 | 54.5 |
| line | l | !l | condition |
|---|---|---|---|
| 62 | 12 | 0 | $_[0]{'parent'} // undef |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 11 | 0 | 5 | 0 | ref $class || $class |
| 12 | 3 | 2 | 0 | $_NEW{$CLASS} //= do { my(%seen, @new, @build); my(@possible) = $CLASS; while (@possible) { my $c = shift @possible; no strict 'refs'; push @new, $c . '::_NEW' if exists &{$c . '::_NEW';}; push @build, $c . '::BUILD' if exists &{$c . '::BUILD';}; ++$seen{$c}; if (exists &{$c . '::DOES';}) { push @possible, grep({not $seen{$_}++;} $c->DOES("*")); } ; push @possible, grep({not $seen{$_}++;} @{$c . '::ISA';}); } ; [[reverse(@new)], [reverse(@build)]] } |
| 60 | 15 | 5 | 0 | $_[0]{'name'} //= $OptArgs2::SubCmd::_FIELDS->{'name'}{'default'}->($_[0]) |