blib/lib/autodie/Util.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 20 | 22 | 90.9 |
line | true | false | branch |
---|---|---|---|
36 | 110 | 28 | unless (defined $stack) |
50 | 60 | 121 | if ($proto =~ /^\s* (?: [;] \s*)? \@/x) |
58 | 117 | 276 | if $seen_semi |
59 | 13 | 380 | if $proto =~ s/^\s*\\([\@%\$\&])// |
60 | 264 | 116 | if $proto =~ s/^\s*([_*\$&])// |
61 | 48 | 68 | if $proto =~ s/^\s*(;\s*)?\@// |
62 | 68 | 0 | if $proto =~ s/^\s*;// |
79 | 3 | 5 | if (@args and $args[-1] =~ /[\@#]_/) { } |
102 | 0 | 4 | if $E |
153 | 19395 | 6473 | unless defined *$oldglob{$slot} |
157 | 3660 | 2807 | if ($sub_ref) |