Branch Coverage

blib/lib/Biblio/Thesaurus/SQLite.pm

Criterion	Covered	Total	%
branch	7	84	8.3

line	true	false	branch
36	0	1	unless my $file = shift()
37	0	1	unless my $dbfile = shift()
42	0	1	unless my $db = 'DBIx::Simple'->connect('dbi:SQLite:' . $dbfile)
56	0	0	unless open F, "<$file"
62	0	0	if ($_ =~ /^\%([^\s]+)\s+(.*)/l) { }
	0	0	elsif ($_ =~ /(.*)==(.*)/l) { }
73	0	0	if ($1 eq $the->baselang) { }
	0	0	elsif ($lang_dest ne '') { }
93	0	0	if ($term . $rel) =~ /.*==.*/l
115	0	2	unless my $dbfile = shift()
116	0	2	unless my $file = shift()
120	0	2	unless my $db = 'DBIx::Simple'->connect('dbi:SQLite:' . $dbfile)
137	0	2	if (defined $baselang)
161	0	0	unless my $termo = shift()
162	0	0	unless my $dbfile = shift()
165	0	0	unless my $db = 'DBIx::Simple'->connect('dbi:SQLite:' . $dbfile)
175	0	0	if $count == 0
200	0	0	unless my $termo = shift()
201	0	0	unless my $dbfile = shift()
204	0	0	unless my $db = 'DBIx::Simple'->connect('dbi:SQLite:' . $dbfile)
213	0	0	if $count == 0
231	0	0	unless my $termo = shift()
232	0	0	unless my $dbfile = shift()
238	0	0	unless my $db = 'DBIx::Simple'->connect('dbi:SQLite:' . $dbfile)
247	0	0	if $count == 0
253	0	0	unless defined $termoarray
271	0	0	unless my $termo = shift()
272	0	0	unless my $rel = shift()
273	0	0	unless my $def = shift()
274	0	0	unless my $dbfile = shift()
277	0	0	unless my $db = 'DBIx::Simple'->connect('dbi:SQLite:' . $dbfile)
286	0	0	unless my $termo = shift()
287	0	0	unless my $rel = shift()
288	0	0	unless my $def = shift()
289	0	0	unless my $dbfile = shift()
292	0	0	unless my $db = 'DBIx::Simple'->connect('dbi:SQLite:' . $dbfile)
310	0	0	unless my $termo = shift()
311	0	0	unless my $oldrel = shift()
312	0	0	unless my $olddef = shift()
313	0	0	unless my $newrel = shift()
314	0	0	unless my $newdef = shift()
315	0	0	unless my $dbfile = shift()