| line |
true |
false |
branch |
|
115
|
143 |
0 |
unless utf8::is_utf8($_) |
|
121
|
5 |
39 |
unless $app->getopt |
|
123
|
4 |
35 |
if ($app->colrm) |
|
126
|
4 |
0 |
if (@ARGV > 0 and $ARGV[0] =~ /^\d+$/u) { } |
|
130
|
2 |
2 |
if (@ARGV > 0 and $ARGV[0] =~ /^\d+$/u) { } |
|
140
|
0 |
39 |
if ($app->expand > 0) |
|
146
|
78 |
0 |
unless defined $_ and length $_ > 1 |
|
150
|
0 |
39 |
if (my $indent = $app->autoindent) |
|
165
|
17 |
50 |
if (/^$/u) { } |
|
|
50 |
0 |
elsif (/^-?\d+$/u) { } |
|
|
0 |
0 |
elsif (/^(-?[-\d:]+) (?:\{(\d+)\})? $/ux) { } |
|
|
0 |
0 |
elsif (/^(term|tty)$/u) { } |
|
180
|
7 |
32 |
if (@width == 0) { } |
|
|
8 |
24 |
elsif (@width == 1) { } |
|
184
|
2 |
33 |
$_ < 0 ? : |
|
209
|
0 |
39 |
if $app->refill |
|
211
|
0 |
35 |
if (s/\A(\n+)//u) |
|
213
|
0 |
0 |
if length $_ == 0 |
|
216
|
14 |
21 |
s/(\n+)\z//u ? : |
|
217
|
0 |
35 |
if $app->refill |
|
219
|
0 |
35 |
if ($app->{'indent_pat'} and /^$app->{'indent_pat'}/pu) |
|
225
|
24 |
11 |
if @index > 0 |
|
227
|
14 |
21 |
if $chomped |
|
228
|
0 |
35 |
if $app->paragraph > 0 |
|
243
|
0 |
0 |
if (open my $tty, ">", "/dev/tty") |
|
249
|
0 |
0 |
unless $size[0] |