| blib/lib/Perl/Critic/Policy/InputOutput/RequireEncodingWithUTF8Layer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 446 | 86 | unless my $handler = $RECOVER_ENCODING{$elem->content} |
| 41 | 33 | 53 | unless my $encoding = &$handler(parse_arg_list($elem)) |
| 43 | 20 | 33 | unless $encoding =~ / (?: \A | : ) utf8 \b /imsx |
| 59 | 8 | 65 | unless ref $arg eq "ARRAY" |
| 60 | 0 | 65 | if @{$arg;} == 0 or @{$arg;} > 1 |
| 61 | 65 | 0 | if $arg->[0]->isa("PPI::Token::Quote") |
| 86 | 13 | 41 | if @args < $THREE_ARGUMENT_OPEN |
| 88 | 0 | 41 | unless defined(my $string = _get_argument_string($args[1])) |