| blib/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitUnknownBackslash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 46 | 56 | 82.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 168 | 238 | 4 | 8 | $elem->isa("PPI::Token::QuoteLike::Command") and $close eq "'" |
| 195 | 34 | 196 | 16 | $self->{'_foldcase'} ne "disallow" and $self->{'_foldcase'} eq 'allow' || defined $perlver && $perlver >= $v5010 |
| 291 | 0 | 0 | 8 | pos $str == $interpolate_var_end + 4 and substr($str, $interpolate_var_end, 2) eq "\\:" |
| 329 | 32 | 72 | 26 | !$single && ($explain{$c} || '') |
| 364 | 0 | 0 | 72 | $doc && $doc->child(0) |
| 365 | 0 | 0 | 72 | $elem && $elem->child(0) |
| 427 | 30 | 0 | 6 | $elem->isa("PPI::Statement::Include") and $elem->type eq "use" |
| 30 | 2 | 4 | $elem->isa("PPI::Statement::Include") and $elem->type eq "use" and ($elem->module || '') eq "charnames" |
| line | l | !l | condition |
|---|---|---|---|
| 222 | 54 | 0 | _pos_after_interpolate_variable($str, pos($str) - length($1)) || (last) |
| 388 | 87 | 5 | $elem->next_sibling || (last) |
| 425 | 36 | 12 | $elem->sprevious_sibling || $elem->parent || (return 0) |
| 427 | 4 | 2 | $elem->module || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 82 | 38 | 264 | 0 | $policy->{'_single'} ne 'none' || $policy->{'_double'} ne 'none' |
| 168 | 16 | 18 | 250 | $elem->isa("PPI::Token::Quote::Single") or $elem->isa("PPI::Token::Quote::Literal") |
| 34 | 8 | 242 | $elem->isa("PPI::Token::Quote::Single") or $elem->isa("PPI::Token::Quote::Literal") or $elem->isa("PPI::Token::QuoteLike::Command") and $close eq "'" | |
| 190 | 204 | 18 | 24 | not defined $perlver or $perlver >= $v5006 |
| 195 | 4 | 16 | 192 | $self->{'_foldcase'} eq 'allow' || defined $perlver && $perlver >= $v5010 |
| 248 | 14 | 12 | 166 | $c eq "[" or $c eq "{" |
| 262 | 4 | 4 | 8 | $have_use_charnames or $have_perl_516 |
| 291 | 12 | 8 | 0 | pos $str == $interpolate_var_end + 2 or pos $str == $interpolate_var_end + 4 and substr($str, $interpolate_var_end, 2) eq "\\:" |