| blib/lib/Resource/Dispose.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 10 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 83 | 2 | 10 | unless $linestr =~ s/\s*(?:(local|my|our|state)\s*)?(\$\w+|\(.*?\))// |
| 87 | 9 | 1 | if defined $scope |
| 89 | 5 | 5 | $decl =~ /^\((.*)\)$/ ? : |
| 97 | 7 | 3 | if $linestr =~ /\s*=/ and $decl =~ /^\s*(\$\w+|\(\s*\$\w+\s*\))\s*$/ |
| 112 | 0 | 12 | unless get_linestr() =~ /^(resource)(?:\b|$)/ |