Branch Coverage

blib/lib/Text/Quoted.pm
Criterion Covered Total %
branch 24 26 92.3


line true false branch
79 0 60 unless defined $top_level
86 132 15 defined $$line{'quoter'} ? :
87 101 46 if ($q eq $top_level) { }
40 6 elsif ($q =~ /^\Q$top_level\E./) { }
90 94 7 if exists $$line{'quoter'} or exists $$line{'empty'}
163 8 1 $quotechar ? :
183 25 10 ref $_ eq 'HASH' ? :
188 2 18 unless defined $text and length $text
200 19 107 if $line{'hang'}->empty and not $line{'text'} =~ /\S/
201 6 120 if $line{'text'} =~ /\A *$separator *\Z/o
210 69 39 if ($$line{'separator'} or $$line{'quoter'} ne $chunks[-1][-1]{'quoter'} or $$line{'empty'} or $chunks[-1][-1]{'empty'}) { }
229 92 34 if ($first or $$line{'quoter'} ne $paras[-1]{'quoter'} or $paras[-1]{'separator'}) { }
249 92 0 unless my $str = delete($$_{'hang'})->stringify