| blib/lib/Attribute/Handlers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 26 | 44 | 59.0 |
| line | l | !l | condition |
|---|---|---|---|
| 92 | 1 | 0 | defined &{$add_import . '::import';} && \&{$add_import . '::import';} |
| 102 | 0 | 2 | defined &UNIVERSAL::import && \&UNIVERSAL::import |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 18 | 5437 | 16 | 6 | ref $sym and $sym == $ref |
| 24 | 2399 | 3003 | 35 | *{$sym;}{$type} and *{$sym;}{$type} == $ref |
| 69 | 0 | 0 | 4 | $attr =~ /$qual_id/i and $tieclass =~ /$qual_id/i |
| 0 | 0 | 4 | $attr =~ /$qual_id/i and $tieclass =~ /$qual_id/i and eval "use base q\000$tieclass\000; 1" | |
| 153 | 23 | 1 | 0 | $^W and not $name =~ /[A-Z]/ |
| 251 | 0 | 10 | 45 | not $raw and defined $data |
| line | l | !l | condition |
|---|---|---|---|
| 68 | 0 | 4 | $3 || '()' |
| 183 | 21 | 2 | $data ||= "ANY" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 14 | 0 | 77 | 0 | $type ||= ref $ref |
| 97 | 2 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
| 2 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
|
| 193 | 1 | 17 | 5 | $data =~ s/\s*,?\s*(CHECK)\s*,?\s*// or not keys %{$phase{$ref};} |
| 249 | 19 | 36 | 0 | $sym ||= $type eq "CODE" ? "ANON" : "LEXICAL" |
| 277 | 19 | 0 | 0 | *{$sym;}{ref $ref} || $ref |