blib/lib/Perl/Critic/Policy/RegularExpressions/ProhibitSingleCharAlternation.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 10 | 12 | 83.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
43 | 271 | 0 | 33 | $_[1]->isa('PPIx::Regexp::Token::Operator') && $_[1]->content eq '|' |
50 | 139 | 0 | 33 | $kid->isa("PPIx::Regexp::Token::Operator") and $kid->content eq "|" |
55 | 15 | 5 | 13 | @alternative == 1 and $alternative[0]->isa("PPIx::Regexp::Token::Literal") |
63 | 5 | 1 | 3 | @alternative == 1 and $alternative[0]->isa("PPIx::Regexp::Token::Literal") |