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'} |