Branch Coverage

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


line true false branch
28 91 118 if ('tag' eq shift @$node) { }
32 15 76 if %$attr
37 80 11 if @$children
40 98 20 if $node->[0] ne "\n\n"
47 91 98 if ($node->{'tag'}) { }
48 80 11 if ($node->{'children'}) { }
50 15 65 $node->{'attr'} ? :
60 80 0 $node->{'children'} ? :
140 3 0 if ($self->wrap_at)
143 12 36 if (s/
//u) { }
166 0 4 if $1
175 44 14 if (not @obml && length $line && length $obml[-1]) { }
182 3 11 if (length $last_line_indent == 0 and length $this_line_indent == 0) { }
231 11 11 if ($input)
232 3 8 if (ref $input) { }
235 6 66 if ($node->{'tag'} and $node->{'children'} and $node->{'tag'} eq 'crossref' || $node->{'tag'} eq 'footnote')
245 72 99 if ($node->{'children'})
280 1 2 if $want eq "data" and $self->_load->{'data'}
282 10 0 unless ($self->_load->{'canonical'}{$want})
283 4 6 if ($self->_load->{'html'}) { }
2 4 elsif ($self->_load->{'data'}) { }
4 0 elsif ($self->_load->{'obml'}) { }
286 1 3 if ($want eq 'obml') { }
3 0 elsif ($want eq 'data' or $want eq 'html') { }
293 2 1 if $want eq "html"
300 1 1 if $want eq "obml"
305 1 3 if ($want eq 'obml') { }
1 2 elsif ($want eq 'data') { }
316 2 8 $want eq 'data' ? :