blib/lib/Perl/Critic/Policy/RegularExpressions/ProhibitCaptureWithoutTest.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 63 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
77 | 0 | 0 | 0 | $stmt and $elem->isa("PPI::Statement::Expression") |
86 | 0 | 0 | 0 | $psib->isa("PPI::Node") and my $match = _find_exposed_match_or_substitute($psib) |
123 | 0 | 0 | 0 | $prev->isa("PPI::Token::Word") and "unless" eq $prev->content |
194 | 0 | 0 | 0 | $elem->isa("PPI::Token::Symbol") and "\$" eq $elem->raw_type |
0 | 0 | 0 | $elem->isa("PPI::Token::Word") and $elem->content =~ / \A [\w:]+ \z /msx | |
203 | 0 | 0 | 0 | $next->isa("PPI::Token::Operator") and "->" eq $next->content |
210 | 0 | 0 | 0 | $prior and $prior->isa("PPI::Token::Operator") |
0 | 0 | 0 | $prior and $prior->isa("PPI::Token::Operator") and "->" eq $prior->content | |
254 | 0 | 0 | 0 | $target->isa("PPI::Token::Symbol") and "&" eq $target->raw_type |
286 | 0 | 0 | 0 | $line == $start_line and $char < $start_char |
289 | 0 | 0 | 0 | $line == $end_line and $char > $end_char |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
88 | 0 | 0 | 0 | _is_control_transfer_to_left($self, $match, $elem) || _is_control_transfer_to_right($self, $match, $elem) |
97 | 0 | 0 | 0 | $parent->isa("PPI::Statement::Compound") or $parent->isa("PPI::Statement::When") |
136 | 0 | 0 | 0 | $self->{'_exception_source'}{$first->content} || _unambiguous_control_transfer($first, $elem) |
151 | 0 | 0 | 0 | "or" eq $oper_content or "||" eq $oper_content |
159 | 0 | 0 | 0 | $self->{'_exception_source'}{$next->content} || _unambiguous_control_transfer($next, $elem) |
170 | 0 | 0 | 0 | $_[1]->isa('PPI::Token::Regexp::Substitute') || $_[1]->isa('PPI::Token::Regexp::Match') |
194 | 0 | 0 | 0 | $elem->isa("PPI::Token::Symbol") and "\$" eq $elem->raw_type or $elem->isa("PPI::Token::Word") and $elem->content =~ / \A [\w:]+ \z /msx |
203 | 0 | 0 | 0 | $next->isa("PPI::Token::Subscript") or $next->isa("PPI::Token::Operator") and "->" eq $next->content |
286 | 0 | 0 | 0 | $line < $start_line or $line == $start_line and $char < $start_char |
289 | 0 | 0 | 0 | $line > $end_line or $line == $end_line and $char > $end_char |