Branch Coverage

blib/lib/Treex/PML/Schema.pm
Criterion Covered Total %
branch 131 282 46.4


line true false branch
258 0 66 unless (ref $opts)
267 16 50 if (defined $base and length $base) { }
27 23 elsif ($opts->{'use_resources'}) { }
277 0 66 if (defined $file and ref($schema = $opts->{'schemas'}{$file}))
278 0 0 if $Treex::PML::Debug
284 9 57 ref $file && $file->isa('Treex::PML::Resource::URI') ? :
290 0 66 unless ($reader->nextElement("pml_schema", "http://ufal.mff.cuni.cz/pdt/pml/schema/") == 1)
297 0 66 if ($@)
301 66 0 if (defined $version and length $version) { }
302 0 66 unless (cmp_revisions($version, "1.2") <= 0)
458 1 0 $root ? :
469 0 0 $types ? :
482 52 54 if ($self->{'reference'})
498 0 0 if ($self->{'reference'})
500 0 0 if defined $_->{'name'}
536 0 9 unless ref $type
538 9 0 if ($ref) { }
540 9 0 if (ref $rtype) { }
562 149 1 if (ref $self->{'root'})
566 136 164 if (ref $self->{$d})
581 0 93 unless ref $type
582 9 0 if (defined $type->{'type'} and length $type->{'type'} and not exists $$referred{$type->{'type'}})
586 9 0 if ref $resolved
595 0 0 unless (exists $src_schema->{'type'}{$name})
602 0 0 if (exists $self->{'type'}{$n}) { }
604 0 0 if (defined $parent) { }
618 0 0 exists $fmt->{$1} ? :
0 0 if ($1 eq '%') { }
642 0 66 if ($opts->{'revision'} and $self->_match_revision($opts->{'revision'}) != 0) { }
647 0 66 if ($opts->{'minimal_revision'} and $self->_match_revision($opts->{'minimal_revision'}) < 0)
652 0 66 if ($opts->{'maximal_revision'} and $self->_match_revision($opts->{'maximal_revision'}) > 0)
672 0 2 if (ref $class) { }
682 0 2 if (ref $schema_hash->{'reference'})
691 2 0 if (defined $root)
702 2 0 if ($types)
742 99 0 if (defined $path and length $path) { }
0 0 elsif (not $decl) { }
743 2 97 if ($path =~ s[^!([^/]+)/?][]) { }
97 0 elsif ($path =~ s[^/][] or not $decl) { }
745 2 0 if (defined $decl) { }
754 0 495 if $step eq "."
755 495 0 if (ref $decl) { }
757 97 356 if ($decl_is == 11 or $decl_is == 12 or $decl_is == 13 or $decl_is == 1)
762 0 139 unless defined $step and length $step
765 54 302 if ($decl_is == 6 or $decl_is == 7)
768 54 0 $decl_is == 6 ? :
54 0 if $step =~ /^\[[-+]?\d+\]$/ or $decl_is == 6 ? $step eq 'LM' || $step eq '[LIST]' : $step eq 'AM' || $step eq '[ALT]'
774 42 260 if ($decl_is == 3) { }
97 163 elsif ($decl_is == 4) { }
163 0 elsif ($decl_is == 5) { }
0 0 elsif ($decl_is == 2) { }
776 42 0 if ($member) { }
780 0 0 unless $member
781 0 0 if ($member->get_knit_name eq $step) { }
788 97 0 if ($step eq "#content")
798 0 0 if (not defined $step && length $step or $step eq $decl->get_name) { }
815 66 33 $decl && ($decl_is == 11 || $decl_is == 12 || $decl_is == 13 || $decl_is == 1 || $decl_is == 2) ? :
0 99 $noresolve ? :
841 0 0 if $_[0]{'role'} eq $role
842 0 0 if (defined $start_decls) { }
870 22 0 if (not $decl and wantarray)
879 280 1546 if defined $_[0]{'role'}
912 0 12 $first ? :
921 0 1859 unless ref $decl
924 33 1826 if ($cache->{'#RECURSE'}{$decl})
929 0 0 if (ref $opts and $opts->{'no_childnodes'} and defined $decl->{'role'} and $decl->{'role'} eq "#CHILDNODES")
933 76 1750 if (&$test($decl))
934 0 76 if ($first) { }
942 0 1826 $opts->{'with_Seq_brackets'} ? :
944 367 1459 if ($type_ref)
946 109 258 unless ($cached)
950 0 367 if ($decl_is == 4) { }
81 286 elsif ($decl_is == 6) { }
24 262 elsif ($decl_is == 7) { }
951 0 0 defined $_ && length $_ ? :
953 8 26 defined $_ && length $_ ? :
955 0 0 defined $_ && length $_ ? :
959 0 367 if $first and @result
961 132 1694 if ($decl_is == 3) { }
48 1646 elsif ($decl_is == 4) { }
34 1612 elsif ($decl_is == 5) { }
134 1478 elsif ($decl_is == 6) { }
28 1450 elsif ($decl_is == 7) { }
821 629 elsif ($decl_is == 1 or $decl_is == 2 or $decl_is == 11 or $decl_is == 12 or $decl_is == 13) { }
963 37 0 defined $_ && length $_ ? :
965 0 624 if $first and @res
971 0 0 defined $_ && length $_ ? :
973 0 28 if $first and @res
976 48 0 if ($cdecl)
977 51 0 defined $_ && length $_ ? :
979 0 48 if $first and @result
983 56 41 defined $_ && length $_ ? :
985 0 55 if $first and @res
989 19 15 defined $_ && length $_ ? :
992 0 0 defined $_ && length $_ ? :
1003 0 0 @result ? :
537 96 if not $uniq{$_}
0 1826 $first ? :
1037 0 0 if (UNIVERSAL::DOES::does($decl, 'Treex::PML::Schema::Decl')) { }
1071 0 0 if (defined $log and UNIVERSAL::isa($log, "ARRAY"))
1075 0 0 unless (ref $type)
1100 0 0 if (defined $log and UNIVERSAL::isa($log, "ARRAY"))
1103 0 0 unless (ref $type)
1105 0 0 unless $named_type
1109 0 0 unless (defined $path and length $path)
1113 0 0 unless $type
1155 0 0 unless (defined $types)
1171 0 0 if $seen->{$type}
1173 0 0 if $no_children and $type->get_role eq "#CHILDNODES"
1174 0 0 if ($decl_is == 1 or $decl_is == 2 or $decl_is == 11 or $decl_is == 12 or $decl_is == 13 or not $with_LM and $decl_is == 6 or not $with_AM and $decl_is == 7)
1182 0 0 if $no_nodes and $type->get_role eq "#NODE"
1185 0 0 unless ref $type
1187 0 0 if ($decl_is == 3) { }
0 0 elsif ($decl_is == 4) { }
0 0 elsif ($decl_is == 5) { }
0 0 elsif ($decl_is == 6) { }
0 0 elsif ($decl_is == 7) { }
1191 0 0 $cdecl ? :
1194 0 0 if ($with_Seq_brackets) { }
1206 0 0 if (@members)
1210 0 0 defined $_ && length $_ ? :
1216 0 0 if not $uniq{$_}
1235 0 0 @types ? :
1255 14 8 if defined $_->[1]
1283 1032 1294 if ($decl_is == 3 or $decl_is == 4 or $decl_is == 5 or $decl_is == 6 or $decl_is == 7 or $decl_is == 9 or $decl_is == 10 or $decl_is == 8) { }
587 707 elsif ($decl_is == 12) { }
1294 390 642 if ($parent_is == 1) { }
28 614 elsif ($parent_is == 2) { }
470 144 elsif ($parent_is == 11 or $parent_is == 12 or $parent_is == 13) { }
96 48 elsif ($parent_is == 4 and $decl_is != 11) { }
47 1 elsif ($parent_is == 6) { }
1 0 elsif ($parent_is == 7) { }
1309 0 106 if ($decl_is == 6 and not $decl->{'-decl'} and $decl->{'role'} eq "#KNIT")
1314 0 587 if (not $decl->{'-decl'} and $decl->{'role'} eq "#KNIT")
1332 0 0 if (defined $path) { }
0 0 elsif ($decl->{'-parent'} and $decl->{'-name'}) { }
1342 337 370 if (UNIVERSAL::isa($data, 'ARRAY')) { }
370 0 elsif (UNIVERSAL::isa($data, 'HASH')) { }
1343 0 337 unless $hashes_only
1345 0 499 if (ref $val and not exists $seen->{$val})
1352 625 2323 if (ref $val and not exists $seen->{$val})