| blib/lib/TM.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 55 | 132 | 41.6 |
| line | l | !l | condition |
|---|---|---|---|
| 2551 | 0 | 29 | push @mads, $m and next ASSERTION |
| 2556 | 0 | 0 | push @mads, $m and next ASSERTION |
| 3236 | 0 | 0 | push @rs, $thing and next |
| 3241 | 0 | 0 | push @rs, $thing and next |
| 3250 | 0 | 9 | push @rs, $thing and next |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 568 | 393 | 109 | 0 | defined $mergers{$mergers{$h}} and $mergers{$mergers{$h}} eq $h |
| 576 | 475 | 27 | 98 | $mergers{$h2} and not $seen{$mergers{$h2}}++ |
| 608 | 308 | 164 | 30 | $$thism['TM'->ADDRESS] and $$thatm['TM'->ADDRESS] |
| 472 | 30 | 0 | $$thism['TM'->ADDRESS] and $$thatm['TM'->ADDRESS] and $$thism['TM'->ADDRESS] ne $$thatm['TM'->ADDRESS] | |
| 832 | 0 | 0 | 0 | $oldmap and $newmap |
| 886 | 0 | 0 | 0 | $xlatneeded and not $foundxlat |
| 893 | 0 | 0 | 0 | $seen{$t} == 2 and not $new2old{$t} |
| 0 | 0 | 0 | $seen{$t} == 1 and not $old2new{$t} | |
| 923 | 0 | 0 | 0 | $oa and $on |
| 0 | 0 | 0 | $oa and $on and $$oa['TM'->LID] ne $$on['TM'->LID] | |
| 1157 | 110 | 0 | 1 | $k =~ /[[:xdigit:]]{16}/ and not $$asserts{$k} |
| 1328 | 46 | 27005 | 0 | defined $k and $k eq 'undef' |
| 2540 | 766 | 4 | 15 | defined $$template[3] and $$m[3] ne $$template[3] |
| 2543 | 556 | 76 | 138 | defined $$template[1] and $$m[1] ne $self->tids($$template[1]) |
| 2546 | 3 | 268 | 361 | defined $$template[2] and not $self->is_subclass($$m[2], $self->tids($$template[2])) |
| 2563 | 0 | 298 | 0 | defined $$rc[$i] and not $self->is_subclass($$rm[$i], $$rc[$i]) |
| 2565 | 7 | 90 | 201 | defined $$pc[$i] and $$pm[$i] ne $$pc[$i] |
| 3034 | 84 | 1 | 1 | $type eq $THING and $$self{'mid2iid'}{$thingie} |
| 3038 | 85 | 0 | 0 | $m and $self->is_subclass($$m[2], $type) |
| 3236 | 111 | 0 | 0 | $class eq $THING and $self->midlet($thing) |
| 3241 | 111 | 0 | 0 | $m and $class eq $THING || $self->is_subclass($$m[2], $class) |
| line | l | !l | condition |
|---|---|---|---|
| 336 | 225 | 526 | $self{'consistency'} ||= [1, 2] |
| 337 | 725 | 26 | $self{'baseuri'} ||= 'tm://nirvana/' |
| 932 | 0 | 0 | $modified{$t}{'plus'} ||= [] |
| 933 | 0 | 0 | $modified{$t}{'minus'} ||= [] |
| 941 | 0 | 0 | $$a['TM'->ADDRESS] || '' |
| 0 | 0 | $$b['TM'->ADDRESS] || '' | |
| 970 | 0 | 0 | $old2new{$scope} || (next) |
| 971 | 0 | 0 | $old2new{$type} || (next) |
| 972 | 0 | 0 | $old2new{$_} || (next) |
| 973 | 0 | 0 | $old2new{$_} || (next) |
| 1045 | 0 | 0 | $modified{$who}{$key} ||= [] |
| 1361 | 23809 | 3242 | $$mid2iid{$k} ||= [$k, undef, []] |
| 1843 | 2090 | 2073 | $$_[3] ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 515 | 0 | 0 | 135 | $this3 eq $this or $this3 eq $this2 |
| 613 | 194 | 99 | 209 | $$thism['TM'->ADDRESS] ||= $$thatm['TM'->ADDRESS] |
| 725 | 0 | 0 | 5486 | $this ||= $that |
| 726 | 0 | 0 | 5486 | $this ||= $that |
| 841 | 0 | 0 | 0 | $_ == 'TM'->Subject_based_Merging || $_ == 'TM'->Indicator_based_Merging |
| 872 | 0 | 0 | 0 | $foundxlat ||= $locators{'old'}{$_} ne $locators{'new'}{$_} |
| 881 | 0 | 0 | 0 | $foundxlat ||= $indicators{'old'}{$_} ne $indicators{'new'}{$_} |
| 1832 | 4160 | 3 | 0 | $$_[2] || $THING |
| 1833 | 1186 | 2977 | 0 | $$_[1] || $US |
| 1851 | 9 | 4154 | 0 | $$_[0] ||= mklabel($_) |
| 3241 | 0 | 0 | 0 | $class eq $THING || $self->is_subclass($$m[2], $class) |