| blib/lib/autobox/Bless.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 0 | 2 | if $HASH::AUTOLOAD =~ /::DESTROY$/ |
| 33 | 96485 | 1196 | unless UNIVERSAL::isa($sv, 'HASH') |
| 34 | 1181 | 15 | unless &Scalar::Util::blessed($sv) |
| 35 | 14 | 1 | unless $sv->can($method) |
| 38 | 2 | 2 | unless exists $$sv{$field} |
| 44 | 2 | 0 | if ($keeper_type) { } |
| 61 | 1 | 295 | if (*{$package . $k;}{'CODE'} and $k eq $given_method) |
| 68 | 0 | 34 | if $k =~ /main::$/ |
| 69 | 3 | 31 | if $k =~ /[^\w:]/ |
| 70 | 28 | 3 | unless $k =~ /::$/ |
| 76 | 1 | 2 | if $maybe_result |