blib/lib/Text/Quoted.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 36 | 39 | 92.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
114 | 14 | 27 | 13 | defined $todo[0]{'quoter'} and $todo[0]{'quoter'} =~ /^\Q$newquoter\E/ |
145 | 85 | 16 | 60 | $_ && /^\Q$top_level\E./ && $stuff[0]{'quoter'} =~ /^\Q$_\E/ |
202 | 1 | 1 | 20 | defined $text and length $text |
213 | 0 | 117 | 19 | $line{'hang'}->empty and not $line{'text'} =~ /\S/ |
215 | 126 | 4 | 6 | $line{'text'} =~ /\A *$separator *\Z/o and not $arg->{'no_separators'} |
line | l | !l | condition |
---|---|---|---|
198 | 2 | 20 | $arg ||= {} |
250 | 79 | 16 | $line->{'raw'} or '' |
76 | 19 | $line->{'text'} or '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
106 | 97 | 0 | 8 | exists $line->{'quoter'} or exists $line->{'empty'} |
224 | 6 | 51 | 59 | $line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} |
57 | 6 | 53 | $line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} or $line->{'empty'} | |
6 | 7 | 46 | $line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} or $line->{'empty'} or $chunks[-1][-1]{'empty'} | |
243 | 90 | 0 | 46 | $first or $line->{'quoter'} ne $paras[-1]{'quoter'} |
90 | 5 | 41 | $first or $line->{'quoter'} ne $paras[-1]{'quoter'} or $paras[-1]{'separator'} |