| blib/lib/Inline/Spew.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 26 | 57.6 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 0 | 1 | unless -d $directory |
| 56 | 2 | 0 | unless ($s =~ /::/) |
| 75 | 0 | 54 | unless exists $$parsed{$defn} |
| 82 | 0 | 708 | if $thisweight < 0 |
| 84 | 128 | 580 | if rand $weight < $thisweight |
| 89 | 0 | 125 | if ref $defn |
| 90 | 73 | 52 | if (/^ (.*)/s) { } |
| 52 | 0 | elsif (/^(\w+)$/) { } | |
| 162 | 1 | 0 | unless ($parser) |
| 164 | 0 | 1 | unless $parser = 'Parse::RecDescent'->new($GRAMMAR) |
| 167 | 0 | 1 | unless my $parsed = $parser->grammar($source) |
| 170 | 0 | 1 | if $id =~ /^\d+$/ |
| 172 | 0 | 1 | unless (exists $$id_ref{'defined'}) |