Branch Coverage

blib/lib/Text/Thesaurus/ISO.pm
Criterion Covered Total %
branch 0 54 0.0


line true false branch
26 0 0 if (defined $isofile)
37 0 0 if (not dbmopen(%{$$self{'termdbm'};}, "$isofile.term", undef)) { }
40 0 0 unless CORE::open THESFILE, $isofile
51 0 0 unless CORE::open THESFILE, $isofile
54 0 0 if $debug
57 0 0 if $debug
61 0 0 if ($line eq '$$') { }
0 0 elsif ($line =~ /TERM\s+(.*)/) { }
0 0 elsif ($line =~ /ALT\s+(.*)/) { }
0 0 elsif ($line =~ /UKALT\s+(.*)/) { }
0 0 elsif ($line =~ /UK\s+(.*)/) { }
0 0 elsif ($line =~ /UF\s+(.*)/) { }
0 0 elsif ($line =~ /BT\s+(.*)/) { }
62 0 0 if ($first)
66 0 0 if $debug
72 0 0 if $debug
73 0 0 if (not defined $$self{'broaddbm'}{"$term"}) { }
83 0 0 if $debug
118 0 0 if $debug
122 0 0 if ($line =~ /^\$\$/)
125 0 0 if ($line =~ /([a-zA-Z0-9]+)\s+(.*)/)
129 0 0 if $attrib eq 'ALT'
130 0 0 if $attrib eq 'SN'
131 0 0 if $attrib eq 'UKALT'
132 0 0 if (not defined $thesaurusrecord{"$attrib"}) { }
170 0 0 if (defined $record{'DATENT'}) { }
184 0 0 if (defined $record{'DATCHG'}) { }