| blib/lib/App/PerlNitpick/Rule/RemoveEffectlessUTF8Pragma.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 3 | 20 | if $st->isa("PPI::Statement::Include") and $st->schild(0) eq "use" |
| 15 | 0 | 1 | unless my $use_utf8_statements = $doc->find(sub { |
| 19 | 7 | 12 | unless $tok->significant |
| 25 | 0 | 34 | if (ord substr($src, $i, 1) > 127) |
| 31 | 1 | 0 | unless ($chars_outside_ascii_range) |