| blib/lib/package/compute.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 24 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 1 | 4 | if (not defined $name) { } |
| 1 | 3 | elsif (not ref $name and $name eq '-anon') { } | |
| 1 | 2 | elsif (not ref $name and $name eq '-filename') { } | |
| 40 | 1 | 47 | if ($INC{$k} eq $filename) |
| 54 | 0 | 5 | unless defined $pkg |
| 57 | 4 | 1 | unless $pkg eq $caller |
| 68 | 0 | 10 | unless defined $name |
| 72 | 0 | 0 | if ++$count > 7 |
| 73 | 10 | 0 | if ($name =~ m[^[.]+(?:::|'|/)]) |
| 76 | 44 | 0 | if length $_ |
| 81 | 33 | 7 | unless /^([.]+)/ |
| 82 | 1 | 6 | if length $1 > @final |