| blib/lib/Attribute/Handlers/Clean.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 27 | 49 | 55.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 21 | 7563 | 6 | 0 | ref $sym and $sym == $ref |
| 27 | 3889 | 3635 | 39 | *{$sym;}{$type} and *{$sym;}{$type} == $ref |
| 67 | 0 | 7 | 0 | @caller_1 && $caller_1[3] eq "$caller_0[0]::import" |
| 85 | 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" | |
| 140 | 20 | 1 | 0 | $^W and not $name =~ /[A-Z]/ |
| 215 | 0 | 8 | 45 | not $raw and defined $data |
| line | l | !l | condition |
|---|---|---|---|
| 84 | 0 | 3 | $3 || '()' |
| 169 | 19 | 2 | $data ||= 'ANY' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 16 | 0 | 73 | 0 | $type ||= ref $ref |
| 70 | 0 | 1 | 6 | $caller eq $class or grep {$_ eq $class;} @{"${caller}::ISA";} |
| 96 | 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
| 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
|
| 1 | 0 | 0 | ref $ref || 'value (' . ($ref || ' |
|
| 174 | 1 | 15 | 5 | $data =~ s/\s*,?\s*(CHECK)\s*,?\s*// or not keys %{$phase{$ref};} |
| 213 | 19 | 34 | 0 | $sym ||= $type eq 'CODE' ? 'ANON' : 'LEXICAL' |
| 233 | 19 | 0 | 0 | *{$sym;}{ref $ref} || $ref |