| blib/lib/Mojo/Base/Lib.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 26 | 46.1 |
| line | l | !l | condition |
|---|---|---|---|
| 28 | 0 | 0 | unshift @_, @$it and next |
| 39 | 0 | 4 | push @flags, $flag and next |
| 50 | 0 | 1 | push @flags, $it and next |
| 57 | 0 | 1 | push @libs, $it and next |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 33 | 0 | 0 | 12 | defined $it and $it =~ m[/|\w] |
| 50 | 1 | 0 | 4 | $flag and $flag eq '-lib' |
| 69 | 4 | 0 | 3 | @libs and my(@ok_libs) = grep({my $lib = $_; not scalar grep(($lib eq $_), @INC);} @libs) |
| 78 | 0 | 0 | 1 | my $file = $flag and not $flag->can('new') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 27 | 12 | 0 | 7 | my $it = shift() or @_ |
| 62 | 0 | 3 | 0 | $findbin ||= do { require FindBin; $FindBin::Bin } |