| line |
true |
false |
branch |
|
30
|
0 |
42 |
if eof FH |
|
33
|
10 |
3 |
wantarray ? : |
|
41
|
0 |
0 |
if &$sub |
|
87
|
15 |
0 |
ref $_[0] eq 'HASH' ? : |
|
106
|
189 |
42 |
unless tr/\-// |
|
111
|
171 |
60 |
if ($prefix) |
|
112
|
0 |
171 |
unless (s/^\Q$prefix\E//u) |
|
113
|
0 |
0 |
unless $NO_WARNINGS |
|
115
|
171 |
0 |
if ($MINILLA_CHANGES) |
|
121
|
0 |
231 |
unless (/^([-+ ]{$mark_length}|\t)/pu) |
|
124
|
0 |
0 |
if (/^\\ /u) { } |
|
127
|
0 |
0 |
unless $NO_WARNINGS |
|
132
|
0 |
54 |
if ($mark ne $stack[-1]->lastlabel and $stack[-1]->exists($mark) || !($stack[-1]->lastlabel =~ /[^+]/u) || $stack[-1]->lastlabel =~ /[+]/u && !($mark =~ /[+]/u)) |
|
141
|
0 |
231 |
$mark =~ /^\t/u ? : |
|
142
|
15 |
216 |
if $total <= 0 |
|
149
|
66 |
62 |
/,/u ? : |
|
150
|
106 |
22 |
wantarray ? : |
|
157
|
0 |
1 |
if (open my $tty, ">", "/dev/tty") |
|
163
|
1 |
0 |
unless $size[0] |