| blib/lib/Test/Inline/Extract.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 49 | 0 | 22 | unless my $class = _CLASS(shift()) |
| 52 | 0 | 22 | unless my $source = $class->_source(shift()) |
| 67 | 0 | 22 | unless defined $_[0] |
| 68 | 21 | 1 | if _SCALAR($_[0]) |
| 69 | 0 | 1 | if ref $_[0] |
| 117 | 22 | 0 | unless $_[0]{'elements'} |
| 127 | 19 | 3 | &List::Util::first(sub { /^=/; } , @elements) ? : |