| blib/lib/Attribute/Handlers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 22 | 40 | 55.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 20 | 2392 | 2553 | 39 | *{$sym;}{$type} and *{$sym;}{$type} == $ref |
| 65 | 0 | 0 | 3 | $attr =~ /$qual_id/ and $tieclass =~ /$qual_id/ |
| 0 | 0 | 3 | $attr =~ /$qual_id/ and $tieclass =~ /$qual_id/ and eval "use base q\000$tieclass\000; 1" | |
| 121 | 20 | 1 | 0 | $^W and not $name =~ /[A-Z]/ |
| 216 | 0 | 8 | 45 | not $raw and defined $data |
| line | l | !l | condition |
|---|---|---|---|
| 64 | 0 | 3 | $3 || '()' |
| 149 | 19 | 2 | $data ||= 'ANY' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 14 | 0 | 73 | 0 | $type ||= ref $ref |
| 74 | 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
| 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
|
| 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
|
| 159 | 1 | 15 | 5 | $data =~ s/\s*,?\s*(CHECK)\s*,?\s*// or not keys %{$phase{$ref};} |
| 214 | 19 | 34 | 0 | $sym ||= $type eq 'CODE' ? 'ANON' : 'LEXICAL' |
| 225 | 19 | 0 | 0 | *{$sym;}{ref $ref} || $ref |