| line |
true |
false |
branch |
|
235
|
16 |
0 |
unless utf8::is_utf8($_) |
|
240
|
0 |
7 |
unless $app->getopt |
|
246
|
0 |
7 |
if (my $color = $app->color) |
|
258
|
173 |
72 |
unless my $flag = $flags->{$name} |
|
261
|
1 |
71 |
if ($flag eq 'c') { } |
|
|
71 |
0 |
elsif ($flag =~ /^([a-z\d])$/iu) { } |
|
262
|
1 |
0 |
if ($code =~ /[\x00-\x1f]/u) |
|
273
|
0 |
7 |
if $app->escape_backslash |
|
282
|
5 |
2 |
if (my(@c) = map({$code{$_};} $app->repeat =~ /\w+/gu)) { } |
|
291
|
20 |
50 |
if $app->expand |
|
292
|
60 |
10 |
if ($replace ne "") |
|
302
|
0 |
70 |
if ($app->original > 1 or $app->original and $_ ne $orig) |