Branch Coverage

web/cgi-bin/yatt.lib/YATT/XHF.pm
Criterion Covered Total %
branch 34 48 70.8


line true false branch
26 0 15 unless open $$self{'cf_FH'}, '<', $fn
34 0 7 unless open $$self{'cf_FH'}, '<', \$string
45 0 2 unless @{$$reader{'cf_tokens'};} = $reader->tokenize($paragraph)
50 0 1 wantarray ? :
59 0 205 unless my $sub = $reader->can("organize_as_$type")
65 13 206 unless defined(my $paragraph = <$fh>)
68 13 192 unless $$reader{'cf_tokens'} and @{$$reader{'cf_tokens'};}
84 94 545 if (my $type = $OPN{$sigil}) { }
4 541 elsif ($sigil eq '}') { }
102 0 313 if (not $$desc[0] eq '') { }
24 289 elsif (my $type = $OPN{$sigil}) { }
114 175 elsif ($sigil eq ']') { }
117 634 1 if (not defined $_[0]) { }
1 0 elsif (ref $_[0] ne 'ARRAY') { }
130 49 978 if ($token =~ s/^(?:\#[^\n]*(?:\n|$))+//)
132 49 0 if $token eq ''
135 0 978 unless ($token =~ s/^($cc_name*) ($cc_sigil) (?:($cc_tabsp)|(\n|$))//x)
136 0 0 defined $$reader{'cf_filename'} ? :
142 0 978 if $sigil eq '#'
147 462 516 if (not defined $eol) { }
122 394 elsif ($OPN{$sigil}) { }
155 0 122 if $token ne ''
165 14 198 if $ncomments and not @result
167 198 0 wantarray ? :