| blib/lib/OptArgs2/Cmd.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 15 | 40.0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 12 | 0 | 11 | 0 | ref $class || $class |
| 13 | 5 | 6 | 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)]] } |
| 56 | 0 | 5 | 0 | $_[0]{'name'} //= $OptArgs2::Cmd::_FIELDS->{'name'}{'default'}->($_[0]) |
| 61 | 0 | 0 | 9 | $_[0]{'no_help'} //= $OptArgs2::Cmd::_FIELDS->{'no_help'}{'default'} |
| 88 | 0 | 0 | 9 | $self->no_help or "CODE" eq ref $self->optargs |