| blib/lib/Glitch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 28 | 67.8 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 2 | 3 | if (keys %import) |
| 34 | 1 | 2 | unless $GLITCHES{$options{'name'}} |
| 42 | 15 | 9 | $_ =~ /(file|filepath|line|stacktrace|module)/ ? : |
| 50 | 0 | 3 | if $@ |
| 57 | 0 | 9 | unless defined $struct |
| 58 | 0 | 9 | ref $struct ? : |
| 69 | 3 | 6 | if $caller[0] eq "Glitch" |
| 72 | 6 | 0 | if $caller[1] =~ m[([^/]+)$] |
| 73 | 6 | 0 | if $caller[2] =~ /(\d+)/ |
| 74 | 6 | 0 | if $caller[3] =~ /([^:]+)$/ |
| 78 | 0 | 6 | !($_->{'module'} =~ /^main$/) ? : |
| 82 | 3 | 3 | $_->{'sub'} ? : |
| 84 | 6 | 0 | if $_ and $_->{'module'} and $_->{'line'} |
| 85 | 0 | 3 | unless $msg->{'stacktrace'} |