Branch Coverage

blib/lib/TM.pm
Criterion Covered Total %
branch 232 364 63.7


line true false branch
338 1 750 unless $self{'baseuri'} =~ m[[/\#:]$]
342 751 0 unless ($$self{'mid2iid'})
395 1 3 if @params
460 0 224 @_ ? :
486 2262 6600 if ($indi)
488 263 2184 if (my $that = $SINs{$sin}) { }
504 446 111 if $this =~ /^$bu/
515 0 135 if ($this3 eq $this or $this3 eq $this2) { }
525 3198 5664 if ($subj)
526 110 3088 if (my $sid = $$thism['TM'->ADDRESS])
527 30 80 if (my $that = $SIDs{$sid}) { }
540 144 80 if ($tnc)
543 2328 864 unless $$a['TM'->KIND] == 'TM'->NAME
550 264 600 if (my $that = $BNs{$bn_plus_scope}) { }
568 55 502 if ($mergers{$h} eq $h) { }
0 502 elsif (defined $mergers{$mergers{$h}} and $mergers{$mergers{$h}} eq $h) { }
582 174 50 if $changes == 0
606 0 502 if $thatm == $thism
608 0 194 if $$thism['TM'->ADDRESS] and $$thatm['TM'->ADDRESS] and $$thism['TM'->ADDRESS] ne $$thatm['TM'->ADDRESS]
688 0 0 if ($$infrastructure{'mid2iid'}{$k}) { }
692 0 0 if $$mid2iid{$k2}
725 0 5486 if $that = $$changes{$$a['TM'->SCOPE]}
726 0 5486 if $that = $$changes{$$a['TM'->TYPE]}
728 0 10972 if $that = $$changes{$_}
729 1374 9598 if $that = $$changes{$_}
731 1374 4112 if $this
832 0 0 unless $oldmap and $newmap
835 0 0 if $newmap->baseuri ne $base
846 0 0 $map eq $oldmap ? :
847 0 0 $map eq $oldmap ? :
853 0 0 if $$midlet['TM'->ADDRESS]
867 0 0 if (grep(($_ == 'TM'->Subject_based_Merging), @{$$options{'consistency'};}))
877 0 0 if (grep(($_ == 'TM'->Indicator_based_Merging), @{$$options{'consistency'};}))
886 0 0 if $xlatneeded and not $foundxlat
889 0 0 $xlatneeded ? :
893 0 0 if ($seen{$t} == 2 and not $new2old{$t}) { }
0 0 elsif ($seen{$t} == 1 and not $old2new{$t}) { }
898 0 0 $newmap->retrieve($t) ? :
902 0 0 $oldmap->retrieve($t) ? :
907 0 0 $seen{$t} == 2 ? :
919 0 0 if ($t =~ /^[A-F0-9]{32}$/i) { }
923 0 0 if ($oa and $on and $$oa['TM'->LID] ne $$on['TM'->LID])
930 0 0 unless (_toplets_eq($ot, $nt))
942 0 0 unless $A eq $B
945 0 0 if grep {$_ != 2;} values %SIDS
956 0 0 if ($xlatneeded)
972 0 0 ref $_ ? :
973 0 0 ref $_ ? :
983 0 0 if ($plusass{$newid})
1001 0 0 if ($key eq 'plus') { }
1014 0 0 if ($$m['TM'->KIND] ne 'TM'->ASSOC) { }
0 0 elsif ($$m['TM'->TYPE] eq 'isa') { }
1034 0 0 if ($$unmodified{$who}) { }
1041 0 0 if ($key eq 'plus')
1051 0 0 if $_ ne $old2new{$_}
1063 0 0 if ($$options{'include_changes'})
1084 0 0 if ($modified{$k}{'identities'})
1089 0 0 if $a = $newmap->retrieve($_)
1090 0 0 if $a = $oldmap->retrieve($_)
1153 1 111 unless $$mid2iid{$$t['TM'->LID]}
1155 0 111 unless $$mid2iid{$$t['TM'->LID]} == $t
1157 1 110 if $k =~ /[[:xdigit:]]{16}/ and not $$asserts{$k}
1328 0 27051 if defined $k and $k eq 'undef'
1330 27005 46 if (defined $k) { }
1 45 elsif (ref $v eq 'Assertion') { }
19 26 elsif (my $k2 = $self->tids($v)) { }
1331 18506 8499 if ($$mid2iid{$k}) { }
12 8487 elsif ($k =~ /^$baseuri/) { }
23 8464 elsif ($k =~ /^\w+:/) { }
5276 3188 elsif (my $k2 = $self->tids($k)) { }
1336 8 15 if (my $k2 = $self->tids($k)) { }
1359 4 27047 if ref $v eq 'Assertion'
1364 1081 25970 if ($v)
1365 751 330 if (ref $v) { }
10 320 elsif ($$kentry['TM'->ADDRESS]) { }
1367 732 19 unless grep {$$v eq $_;} @{$$kentry['TM'->INDICATORS];}
1369 1 9 unless $v eq $$kentry['TM'->ADDRESS]
1378 3098 2210 wantarray ? :
1401 7184 32 if (wantarray) { }
1402 14368 0 defined $_ ? :
1472 15 70 if ($_[0]) { }
1473 14 1 if (ref $_[0]) { }
1477 11 12 if ($2 eq 'all') { }
11 1 elsif ($2 eq 'infrastructure') { }
1485 1 12 if $spec =~ /\S/
1498 33 26 if ($pm) { }
1562 11 24719 if (not defined $k) { }
219 24500 elsif (ref $k) { }
1147 23353 elsif (my $kk = $$mid2iid{$k}) { }
62 23291 elsif ($k =~ /(^\w+:)|(^[A-F0-9]{32}$)/i) { }
1568 193 3631 if (grep(($_ eq $kk), @{$$mid2iid{$k2}['TM'->INDICATORS];}))
1583 41 21 @k2 ? :
1587 19821 3470 $$mid2iid{$k2} ? :
1592 8038 9470 wantarray ? :
1831 4163 0 unless ($$_[6])
1842 4163 0 unless ($$_[6])
1847 2091 6219 ref $_ ? :
1878 87 141 if (wantarray) { }
1948 13 32 if ($_[0]) { }
1949 13 0 if (ref $_[0]) { }
1953 11 26 if ($2 eq 'all') { }
3 23 elsif ($2 eq 'associations') { }
14 9 elsif ($2 eq 'names') { }
5 4 elsif ($2 eq 'occurrences') { }
4 0 elsif ($2 eq 'infrastructure') { }
1971 0 13 if $spec =~ /\S/
1996 4 0 unless ($$a[6])
2540 15 770 if defined $$template[3] and $$m[3] ne $$template[3]
2543 138 632 if defined $$template[1] and $$m[1] ne $self->tids($$template[1])
2546 361 271 if defined $$template[2] and not $self->is_subclass($$m[2], $self->tids($$template[2]))
2551 29 242 unless @$rc
2553 0 242 if @$rm != @$rc
2556 0 242 unless @$pc
2557 0 242 if @$pm != @$pc
2563 0 298 if defined $$rc[$i] and not $self->is_subclass($$rm[$i], $$rc[$i])
2565 201 97 if defined $$pc[$i] and $$pm[$i] ne $$pc[$i]
2568 0 41 if $exists
2595 0 1792 if (my $idxs = $$self{'indices'}) { }
2598 0 0 if (my $lids = $idx->is_cached($key))
2616 1731 61 if (my $handler = $forall_handlers{$skeys}) { }
2635 0 0 if (my $handler = $exists_handlers{$skeys}) { }
2646 0 254 $exists ? :
2688 0 1380 unless $p
2690 303 1077 if ($r) { }
2694 416 113 unless $$ps[$i] eq $p
2695 0 113 unless $self->is_subclass($$rs[$i], $r)
2699 252 825 if grep(($_ eq $p), @{$$m[5];})
2707 0 10405 unless my $p = shift()
2710 10405 0 if ($r) { }
2714 17461 2520 unless $$ps[$i] eq $p
2715 1608 912 unless $$rs[$i] eq $r
2719 0 0 if grep(($_ eq $p), @{$$m[5];})
2744 0 52 unless $r
2749 52 52 unless $self->is_subclass($$rs[$i], $r)
2764 2512 2512 unless $$rs[$i] eq $r
2786 0 36 unless my $r = shift()
2788 5 31 if grep $self->is_subclass($_, $r), @{$$m[4];}
2794 0 0 unless my $r = shift()
2796 0 0 if grep(($_ eq $r), @{$$m[4];})
2818 0 0 unless $$ps[$i] eq $p
2863 0 65 if $$a[6]
2865 62 3 if $$a[2]
2866 19 46 if $$a[1]
2868 47 18 if $$a[4]
2869 0 93 ref $_ ? :
45 20 if $$a[5]
2900 0 10002 if $$s[6]
2908 0 9970 unless $$rs[$a] cmp $$rs[$b]
2940 0 9932 unless $$a[6]
2942 3985 15870 ref $_ ? :
2981 1033 2890 if $class eq $super
2987 17 2873 if $super eq $THING
2989 632 2241 if $class eq $ISA
2990 0 2241 if $class eq $US
2991 2 2239 if $class eq $THING
2992 1042 1197 if $class eq $SUBCLASSES
2993 16 1181 if $class eq $SUBCLASS
2994 20 1161 if $class eq $SUPERCLASS
2995 62 1099 if $class eq $INSTANCE
2996 19 1080 if $class eq $CLASS
3007 69 1011 if grep $self->is_subclass($_, $super), map({$self->get_x_players($_, $SUPERCLASS);} $self->match_forall('type', $SUBCLASSES, 'subclass', $class))
3034 1 85 if $type eq $THING and $$self{'mid2iid'}{$thingie}
3038 0 85 if $m and $self->is_subclass($$m[2], $type)
3042 18 67 if grep $self->is_subclass($_, $type), map({$self->get_players($_, $CLASS);} $self->match_forall('type', $ISA, 'instance', $thingie))
3078 0 23 $dup{$_}++ ? :
3087 6 17 $dup{$_}++ ? :
3114 0 10 $dup{$_}++ ? :
3123 7 22 $dup{$_}++ ? :
3149 8 8 ($a = $self->retrieve($_)) ? :
3153 1 17 $dup{$_}++ ? :
3162 3 7 $dup{$_}++ ? :
3193 4 86 $_ eq $THING ? :
3204 0 31 $dup{$_}++ ? :
3236 0 111 if $class eq $THING and $self->midlet($thing)
3241 0 0 if $m and $class eq $THING || $self->is_subclass($$m[2], $class)
3250 9 102 if grep $self->is_subclass($_, $class), map({$self->get_players($_, $CLASS);} $self->match_forall('type', $ISA, 'instance', $thing))
3329 10 1 if ref $a eq 'Assertion'
3357 8 0 if $$self{'mid2iid'}{$tid}
3358 0 8 unless $add
3359 7 1 $add =~ /^[A-F0-9]{32}$/i ? :
3413 0 0 if $var
3414 0 0 $var ? :