Branch Coverage

blib/lib/Treex/PML/Backend/FS.pm
Criterion Covered Total %
branch 0 112 0.0


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