| blib/lib/Text/Xatena/Inline/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 6 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 23 | 294 | 243 | 0 | ref $caller || $caller |
| 25 | 496 | 41 | 0 | ${$caller . '::_inlines';} ||= do { my $parents = []; foreach my $isa (@{$caller . '::ISA';}) { my $isa = $isa->inlines; push @$parents, @$isa; } ; $parents } |