| blib/lib/Perl/Critic/Pulp/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 21 | 28 | 75.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 43 | 92 | 0 | 0 | defined $str and $str ne "" |
| 99 | 26 | 0 | 52 | $after->isa("PPI::Token::Structure") and $after eq ";" |
| 128 | 18 | 229 | 41 | $arg and $arg->isa("PPI::Token::Structure") |
| 247 | 0 | 41 | $arg and $arg->isa("PPI::Token::Structure") and $arg->content eq ";" | |
| 229 | 0 | 41 | $arg and $arg->isa("PPI::Token::Structure") and $arg->content eq ";" and not $arg->snext_sibling | |
| 187 | 284 | 203 | 0 | $elem->isa('PPI::Token::Operator') && $COMMA{$elem} |
| line | l | !l | condition |
|---|---|---|---|
| 84 | 407 | 9 | $inc->schild(2) || (return undef) |
| 166 | 265 | 8 | $elem->sprevious_sibling || $elem->parent || (return undef) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 99 | 61 | 0 | 78 | $after->isa("PPI::Token::Whitespace") or $after->isa("PPI::Token::Comment") |
| 61 | 62 | 16 | $after->isa("PPI::Token::Whitespace") or $after->isa("PPI::Token::Comment") or $after->isa("PPI::Token::Structure") and $after eq ";" |