| blib/lib/Attribute/Handlers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 43 | 58.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 19 | 5346 | 11 | 6 | ref $sym and $sym == $ref |
| 25 | 2632 | 2681 | 33 | *{$sym;}{$type} and *{$sym;}{$type} == $ref |
| 70 | 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" | |
| 126 | 20 | 1 | 0 | $^W and not $name =~ /[A-Z]/ |
| 221 | 0 | 8 | 45 | not $raw and defined $data |
| line | l | !l | condition |
|---|---|---|---|
| 69 | 0 | 3 | $3 || '()' |
| 154 | 19 | 2 | $data ||= 'ANY' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 15 | 0 | 73 | 0 | $type ||= ref $ref |
| 79 | 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
| 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
|
| 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
|
| 164 | 1 | 15 | 5 | $data =~ s/\s*,?\s*(CHECK)\s*,?\s*// or not keys %{$phase{$ref};} |
| 219 | 19 | 34 | 0 | $sym ||= $type eq 'CODE' ? 'ANON' : 'LEXICAL' |
| 230 | 19 | 0 | 0 | *{$sym;}{ref $ref} || $ref |