| blib/lib/OptArgs2/SubCmd_CI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 9 | 55.5 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 7 | 15 | 5 | 0 | $_[0]{'name'} //= $OptArgs2::SubCmd::_HAS->{'name'}{'default'}->($_[0]) |
| 0 | 5 | 0 | ref $class || $class | |
| 3 | 2 | 0 | $_BUILD_CHECK{$class} //= do { my(@possible) = $class; my(@BUILD, @CHECK); while (@possible) { no strict 'refs'; my $c = shift @possible; push @BUILD, $c . "::BUILD" if exists &{$c . "::BUILD";}; push @CHECK, $c . "::__CHECK" if exists &{$c . "::__CHECK";}; push @possible, @{$c . "::ISA";}; } ; [reverse(@CHECK), reverse(@BUILD)] } |