blib/lib/OptArgs2/Arg_CI.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 4 | 9 | 44.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
7 | 0 | 0 | 6 | exists $_[0]{'cmd'} and defined $_[0]{'cmd'} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
7 | 0 | 6 | 0 | ref $class || $class |
3 | 3 | 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)] } |