| blib/lib/Package/Tent.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 28 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 85 | 1 | 11 | unless @_ |
| 88 | 0 | 11 | unless (ref $subref || '') eq 'CODE' |
| 93 | 0 | 11 | if $@ |
| 94 | 0 | 11 | unless $v |
| 96 | 9 | 2 | unless ($v =~ /^[a-z][a-z0-9:_]*$/i) |
| 98 | 0 | 9 | if ($@) |
| 101 | 0 | 9 | unless $v |
| 119 | 0 | 9 | unless open my $fh, '<', $file |
| 133 | 14 | 31 | if ($line =~ /^\s*use \Q$pname\E *\(? *sub *\{(.*)/) { } |
| 8 | 23 | elsif ($in_use and not defined $got_pack) { } | |
| 134 | 6 | 8 | if (my $also = $1) { } |
| 135 | 6 | 0 | if ($also =~ /\bpackage ([\w:]+)/) |
| 147 | 8 | 0 | if ($line =~ /(?:^|;)\s*package ([\w:]+)/) |
| 152 | 9 | 36 | if $ln >= $num |