| line |
true |
false |
branch |
|
93
|
0 |
63 |
unless defined $top_level |
|
100
|
136 |
16 |
defined $line->{'quoter'} ? : |
|
101
|
105 |
47 |
if ($q eq $top_level) { } |
|
|
41 |
6 |
elsif ($q =~ /^\Q$top_level\E./) { } |
|
106
|
97 |
8 |
if exists $line->{'quoter'} or exists $line->{'empty'} |
|
173
|
8 |
1 |
$quotechar ? : |
|
193
|
25 |
10 |
ref $_ eq 'HASH' ? : |
|
202
|
2 |
20 |
unless defined $text and length $text |
|
213
|
19 |
117 |
if $line{'hang'}->empty and not $line{'text'} =~ /\S/ |
|
215
|
6 |
130 |
if $line{'text'} =~ /\A *$separator *\Z/o and not $arg->{'no_separators'} |
|
224
|
70 |
46 |
if ($line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} or $line->{'empty'} or $chunks[-1][-1]{'empty'}) { } |
|
243
|
95 |
41 |
if ($first or $line->{'quoter'} ne $paras[-1]{'quoter'} or $paras[-1]{'separator'}) { } |
|
255
|
0 |
41 |
if $extraspace < 0 |
|
264
|
95 |
0 |
unless my $str = delete $_->{'hang'}->stringify |