Branch Coverage

blib/lib/Bio/DB/HIV/HIVQueryHelper.pm

Criterion	Covered	Total	%
branch	216	358	60.3

line	true	false	branch
152	2	1	if ($args[0])
179	0	265	unless $sref
209	0	0	unless $sref
213	0	0	unless grep /^$tbl$/i, $self->tables
237	0	242	unless $sref
259	0	74	unless $sref
260	32	42	$sref->{$sfield}{'option'} ? :
280	0	1232	unless $sref
281	1223	9	if ($sfield) { }
282	1103	120	$sref->{$sfield}{'alias'} ? :
285	783	90	if $sref->{$_}{'alias'}
310	0	1	unless $sref
312	0	1	unless $sref->{$_}{'ankey'}
334	0	6	unless $self->{'schema_ref'}
336	5	1	if ($sfields[0] eq '-s')
344	5	1	if ($squish)
349	5	1	wantarray ? :
373	0	1	unless $self->{'schema_ref'}
378	0	1	wantarray ? :
404	0	91	unless $self->{'schema_ref'}
408	101	0	grep(/^$tbl$/i, $self->tables) ? :
412	5	86	wantarray ? :
440	0	87	unless $self->{'schema_ref'}
443	70	17	if $totbl
445	0	87	unless grep /^$intbl/i, $self->tables
447	70	17	if ($totbl) { }
449	0	0	wantarray ? :
	0	70	unless grep /^$totbl/i, $self->tables and $tpk
452	0	70	wantarray ? :
481	0	21	unless $self->{'schema_ref'}
484	0	21	unless $mnem and $fmnem
487	0	21	unless $sf
491	5	16	wantarray ? :
517	10	5	if ($found) { }
518	0	10	if (@$stack > $revcut)
522	0	0	@$stack <= @$revstack ? :
553	5	15	if $tbl eq $tgt
555	5	10	if ($k)
558	65	5	unless $self->fk($_, $k)
	0	5	$rev ? :
561	5	0	if (@$stack)
562	5	0	if (@$stack == 1)
565	0	5	if (@$stack > 1)
566	0	0	grep(/$f/, @$stack) ? :
571	0	0	if ($self->tbl($f2p) eq $tgt) { }
579	0	0	if $$found
584	0	15	$rev ? :
586	5	10	if (@$stack)
587	5	0	if (@$stack == 1)
590	0	5	if (@$stack > 1)
591	0	0	grep(/$f/, @$stack) ? :
595	10	5	if (@fks) { }
598	10	5	if ($self->ftbl($f) eq $tgt) { }
604	0	5	$$found ? :
638	0	2	unless -e $fn
647	246	142	if ($ptr)
651	66	180	if (ref $ptr eq 'HASH') { }
	180	0	elsif (ref $ptr eq 'ARRAY') { }
653	66	0	if (grep /desc/, keys %{$$ptr{$k[0]};})
661	76	332	ref $_ eq 'HASH' ? :
671	18	176	if (not defined $ank) { }
845	0	7	if $@
848	1	6	if $query->isnull
857	15	4	@d == 1 ? :
859	5	4	if @an
885	2	52	if (/^AND$/)
889	3	49	if (/^OR$/)
893	33	16	if (/^HASH/)
895	7	26	if ($dl =~ /\(/)
896	1	6	if (grep /^HASH/, @{$$_{'cont'};}) { }
897	0	1	unless not $$q_expr && length $$q_expr or substr($$q_expr, -1, 1) =~ /[&|(]/
906	0	6	if (@c = $c =~ /(['"])/g) % 2
910	6	10	if ($c =~ /['"]/) { }
922	22	4	if ($dl =~ /\[/)
923	0	22	unless @{$_->{'cont'};}
924	0	22	unless @{$_->{'cont'};} == 1
928	10	12	unless not $$q_expr && length $$q_expr or substr($$q_expr, -1, 1) =~ /[&|(]/
933	4	0	if ($dl =~ /\{/)
935	7	6	if ($an =~ /^HASH/)
936	7	0	if ($an->{'delim'} eq '[') { }
958	0	16	if ($o) { }
964	2	14	if /['"]/
967	0	8	unless $$q_expr =~ /q\[[0-9]+\]/
970	0	8	$@ ? :
1000	0	6	unless @tok
1006	0	6	if $qstr =~ /$illegal/
1013	32	75	if (/[\(\[\{]/)
1015	5	27	unless $p->{'cont'}
1022	32	43	if (/[\)\]\}]/)
1024	32	0	if ($md{$d} eq $_) { }
1026	0	32	unless $p
1034	33	10	unless $p->{'cont'}
1039	0	6	$@ ? :
1067	42	3	if @args
1088	0	95	if @_
1107	0	46	unless ref $_ and $_->isa('R')
1126	45	2	$self->requests ? :
1200	0	4	unless ref $q and $q->isa('QRY')
1201	0	4	unless ref $r and $r->isa('QRY')
1202	0	4	if ($q->isnull) { }
	0	4	elsif ($r->isnull) { }
1208	0	4	if ($q->len > $r->len)
1219	1	3	if (@result == 1) { }
1228	3	1	unless $found
1235	7	0	unless @cand_rq and grep {R::Eq($rq, $_);} @cand_rq
1253	0	14	unless ref $q and $q->isa('QRY')
1254	0	14	unless ref $r and $r->isa('QRY')
1255	0	14	if $q->isnull or $r->isnull
1260	14	1	unless $rq->isnull
1263	1	13	unless @cand_rq
1266	14	0	unless @cand_rq and grep {R::Eq($rq, $_);} @cand_rq
1284	0	3	unless ref $q and $q->isa('QRY')
1285	0	3	$q->isnull ? :
1302	0	3	unless ref $q and $q->isa('QRY')
1303	0	3	unless ref $r and $r->isa('QRY')
1304	0	3	unless $q->len == $r->len
1308	3	0	if (R::Eq($rq_q, $rq_r))
1313	0	3	unless $found
1373	25	63	if @args
1415	156	82	@_ ? :
1416	98	140	wantarray ? :
1452	0	130	unless ref $_ and $_->isa('Q')
1453	0	130	if ($self->atoms($_->fld)) { }
1455	0	0	if ($a->isnull) { }
1486	24	6	unless @args
1507	61	2	$self->len ? :
1567	0	9	unless ref $s and $s->isa('R')
1568	0	9	unless ref $t and $t->isa('R')
1569	0	9	if $s->isnull
1572	4	5	unless @cf == $t->len
1577	3	2	unless @cd == @sd
1596	0	15	unless ref $s and $s->isa('R')
1597	0	15	unless ref $t and $t->isa('R')
1598	0	15	if $s->isnull or $t->isnull
1600	1	14	if ($s->len > $t->len)
1615	1	2	if ($a->isnull) { }
1642	0	4	unless ref $s and $s->isa('R')
1643	0	4	unless ref $t and $t->isa('R')
1644	0	4	if ($s->isnull) { }
	0	4	elsif ($t->isnull) { }
1650	1	3	if In($t, $s)
1651	0	3	if In($s, $t)
1654	3	0	if ($s->len > $t->len)
1658	0	3	if ($t->len == @cf)
1661	0	0	if (@df == 1)
1691	0	8	unless ref $s and $s->isa('R')
1692	0	8	unless ref $t and $t->isa('R')
1695	4	4	unless @sf == @tf
1697	0	4	unless @cf == @tf
1699	0	5	unless Q::qeq($s->atoms($_), $t->atoms($_))
1778	0	10	unless ref $self and $self->isa('Q')
1779	2	0	unless $self->fld and length $self->fld or $self->dta and length $self->dta
1796	0	515	unless ref $self and $self->isa('Q')
1798	0	515	if ($f)
1820	0	249	unless ref $self and $self->isa('Q')
1822	0	249	if ($d)
1843	0	0	unless ref $self and $self->isa('Q')
1862	0	199	unless ref $self and $self->isa('Q')
1885	0	0	unless ref $a and $a->isa('Q') and ref $b and $b->isa('Q')
1886	0	0	unless $a->fld eq $b->fld
1905	0	5	unless ref $a and $a->isa('Q') and ref $b and $b->isa('Q')
1906	0	5	unless $a->fld eq $b->fld
1909	0	5	unless @ad == @bd
1929	0	0	unless ref $_ and $_->isa('Q')
1934	0	0	unless @a > 0
1960	0	3	unless ref $a and $a->isa('Q') and ref $b and $b->isa('Q')
1962	0	3	if (ref $a eq 'ARRAY') { }
	0	3	elsif (ref $b eq 'ARRAY') { }
1976	0	3	if $a->isnull or $b->isnull
1977	3	0	if ($a->fld eq $b->fld) { }
1988	4	5	$ad{$_} == 2 ? :
1989	2	1	length $r->dta > 0 ? :
2061	0	0	unless @_
2064	0	0	if (ref $h[0]{'value'}) { }
2102	0	0	ref $keys eq 'ARRAY' ? :
2106	0	0	if (ref $a and $a->isa('Bio::Annotation::Collection')) { }
2111	0	0	if $a
2121	0	0	if ($self->get_value($lastkey)) { }
2151	0	0	if (ref $a and $a->isa('Bio::Annotation::Collection')) { }