Branch Coverage

blib/lib/Bible/OBML.pm
Criterion Covered Total %
branch 52 58 89.6


line true false branch
34 91 118 if ('tag' eq shift @$node) { }
38 15 76 if %$attr
43 80 11 if @$children
46 98 20 if $node->[0] ne "\n\n"
53 91 98 if ($node->{'tag'}) { }
54 80 11 if ($node->{'children'}) { }
56 15 65 $node->{'attr'} ? :
66 80 0 $node->{'children'} ? :
147 3 0 if ($self->wrap_at)
150 12 36 if (s/
//u) { }
177 0 4 if $1
186 44 14 if (not @obml && length $line && length $obml[-1]) { }
193 3 11 if (length $last_line_indent == 0 and length $this_line_indent == 0) { }
242 11 11 if ($input)
243 3 8 if (ref $input) { }
246 6 66 if ($node->{'tag'} and $node->{'children'} and $node->{'tag'} eq 'crossref' || $node->{'tag'} eq 'footnote')
256 72 99 if ($node->{'children'})
291 1 2 if $want eq "data" and $self->_load->{'data'}
293 10 0 unless ($self->_load->{'canonical'}{$want})
294 4 6 if ($self->_load->{'html'}) { }
2 4 elsif ($self->_load->{'data'}) { }
4 0 elsif ($self->_load->{'obml'}) { }
297 1 3 if ($want eq 'obml') { }
3 0 elsif ($want eq 'data' or $want eq 'html') { }
304 2 1 if $want eq "html"
311 1 1 if $want eq "obml"
316 1 3 if ($want eq 'obml') { }
1 2 elsif ($want eq 'data') { }
327 2 8 $want eq 'data' ? :