Branch Coverage

blib/lib/Treex/PML/Backend/FS.pm
Criterion Covered Total %
branch 67 112 59.8


line true false branch
25 0 0 if ($role eq 'FSBackend' or $role eq 'Treex::PML::Backend::FS') { }
85 0 4 if (ref $f eq 'ARRAY') { }
2 2 elsif (ref $f) { }
88 2 0 unless UNIVERSAL::DOES::does($f, 'IO::Zlib')
111 0 0 if ($defs->{$short})
121 2 98 if ($fs->isList($attr)) { }
138 0 2 unless ref $fsfile
140 0 2 unless $FS->readFrom($fileref)
144 2 0 if ($Treex::PML::Backend::FS::emulatePML)
183 2 0 if (defined $node_type->{'member'})
200 4 8 if ($l =~ /^\[/) { }
202 4 0 if $root
210 4 4 if (m[^//Tred:Custom-Attribute:(.*\S)\s*$]) { }
0 4 elsif (m[^//Tred:Custom-AttributeCont:(.*\S)\s*$]) { }
0 4 elsif (m[^//FS-REQUIRE:\s*(\S+)\s+(\S+)=\"([^\"]+)\"\s*$]) { }
222 0 2 unless (@patterns)
228 2 6 m[^//Tred:Balloon-Pattern:(.*\S)\s*$] ? :
235 0 1 unless ref $fsfile
240 0 1 if (defined $encoding)
245 1 0 ref $fsfile->metaData('schema') ? :
263 0 1 if (ref $fsfile->metaData('fs-require'))
278 0 461 if (ref $output eq 'SCALAR') { }
299 0 2 unless $fh
303 8 6 if ($node->{$Treex::PML::Node::firstson})
312 0 6 unless $node
313 2 4 if $node == $root or not $node
334 14 0 if ($node) { }
337 700 0 $emu_schema ? :
338 172 528 if defined $v
339 56 644 if (index($$defs{$attrs->[$n]}, ' O') >= 0) { }
116 528 elsif (defined $v and length $v) { }
340 42 14 if $n
341 0 56 unless ($lastprinted and index($$defs{$attrs->[$n]}, ' P') >= 0)
343 0 56 if $v eq '' or not defined $v
347 116 0 if $n
348 81 35 unless ($lastprinted and index($$defs{$attrs->[$n]}, ' P') >= 0)
371 0 4 unless ref $fsformat
376 0 4 unless ($ordhash)
381 4 0 if ($l =~ /^\[/o)
395 16 24 if ($c eq '(')
401 16 8 if ($c eq ')')
402 0 16 if $curr eq $root
406 8 0 if ($c eq ',')
415 0 4 if $curr != $root
438 0 28 unless ($ordhash)
443 28 0 $emu_schema_type ? :
446 28 0 if ($$lr =~ /^\[/) { }
455 163 181 if ($i >= 0) { }
459 163 0 if defined $tmp
463 0 181 if ($n > $attr_count)
468 0 344 if ($Treex::PML::Backend::FS::CheckListValidity)
469 0 0 if ($fsformat->isList($a))
472 0 0 unless defined Index(\@lv, $tmp)
483 0 344 if ($emu_schema_type and $a =~ m[/]) { }
498 0 128 if (ref $handle eq 'ARRAY') { }
510 0 126 if (s/\\\r*\n?$//go)