| blib/lib/Class/Data/TIN.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 34 | 70.5 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 1 | 2 | if (@_ == 1) { } |
| 39 | 1 | 0 | if (ref $param eq 'HASH') { } |
| 0 | 0 | elsif (-e $param) { } | |
| 50 | 0 | 3 | if $data and ref $data ne 'HASH' |
| 64 | 2 | 1 | if @isa_tin |
| 67 | 3 | 0 | if $data |
| 69 | 0 | 3 | if $@ |
| 89 | 3 | 14 | if *$accessor{'CODE'} |
| 95 | 12 | 52 | if @_ |
| 106 | 44 | 3 | if ($tin->can($key)) |
| 120 | 1 | 4 | if ref $self |
| 140 | 0 | 9 | if ref $self |
| 147 | 1 | 8 | unless ($tin->can($key)) |
| 154 | 2 | 6 | if (not ref $val) { } |
| 4 | 2 | elsif (ref $val eq 'HASH') { } | |
| 2 | 0 | elsif (ref $val eq 'ARRAY') { } | |
| 0 | 0 | elsif (ref $val eq 'CODE') { } |