blib/lib/Devel/Optic/Lens/Perlish/Parser.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 16 | 18 | 88.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
48 | 37 | 19 | 34 | $chars[0] ne '$' and $chars[0] ne '@' |
56 | 32 | 2 | $chars[0] ne '$' and $chars[0] ne '@' and $chars[0] ne '%' | |
59 | 1305 | 0 | 4 | $char eq '\\' and $has_next |
73 | 95 | 1018 | 123 | not $in_string and $char eq '-' |
1113 | 0 | 123 | not $in_string and $char eq '-' and $has_next | |
85 | 95 | 806 | 221 | not $in_string and exists $symbols{$char} |