blib/lib/OptArgs2/SubCmd_CI.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 6 | 50.0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
7 | 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)] } |