Branch Coverage

blib/lib/SQL/DB/Expr.pm
Criterion Covered Total %
branch 72 110 65.4


line true false branch
68 0 3 if ref($val) =~ /^SQL::DB::Expr/
76 7 9 if ref($val) =~ /^SQL::DB::Expr/
84 53 64 if ref($val) =~ /^SQL::DB::Expr/
97 17 17 eval { do { $_->isa('SQL::DB::Expr') } } ? :
102 14 14 eval { do { $last->isa('SQL::DB::Expr') } } ? :
109 0 17 if @_ == 1 and eval { do { $_[0]->isa('SQL::DB::Expr') } }
115 5 37 if (ref $keyword) { }
123 5 37 unless defined $item
124 10 27 if (ref $item eq 'SQL::DB::Expr') { }
11 16 elsif (ref $item eq 'ARRAY') { }
1 15 elsif (ref $item eq 'SCALAR') { }
128 25 0 ref $_ ? :
142 0 17 if $@
174 6 403 if (my $name = $self->_alias)
198 467 0 defined $_ ? :
208 0 0 if (ref $token eq 'SQL::DB::Expr::Quote') { }
0 0 elsif (ref $token eq 'SQL::DB::Expr::BindValue') { }
215 0 0 if (not defined $val) { }
0 0 elsif ($val =~ /[\P{IsPrint}]/) { }
0 0 elsif (looks_like_number($val)) { }
278 5 223 if (ref $token eq 'SQL::DB::Expr::Quote') { }
13 210 elsif (ref $token eq 'SQL::DB::Expr::BindValue') { }
0 210 elsif (not defined $token) { }
285 0 13 if (not defined $val) { }
12 1 elsif (defined $type) { }
291 12 0 if ($type_map{$type}) { }
0 0 elsif ($type eq 'bytea') { }
0 0 elsif ($type eq 'inet') { }
0 0 elsif ($type eq 'cidr') { }
0 0 elsif ($type eq 'boolean') { }
346 0 475 unless (defined $e2)
356 40 435 if ($swap) { }
135 300 elsif (defined $swap) { }
357 0 40 if (eval { do { $e2->isa('SQL::DB::Expr') } }) { }
378 24 111 if (eval { do { $e2->_logic } }) { }
0 111 elsif ($e1->_logic) { }
379 10 14 if ($e1->_multi)
386 0 0 if (eval { do { $e2->_multi } })
393 46 89 if (eval { do { $e2->isa('SQL::DB::Expr') } }) { }
413 2 298 if (eval { do { $e2->_logic } }) { }
26 272 elsif ($e1->_logic) { }
414 2 0 if ($e1->_multi)
421 11 15 if (eval { do { $e2->_multi } })
428 179 121 if (eval { do { $e2->isa('SQL::DB::Expr') } }) { }
448 16 4 if ($e1->_multi > 0)
463 6 58 if ($swap) { }
506 0 5 if (@_ >= 2 and $_[0] =~ /^select/i)
516 0 4 if (@_ >= 2 and $_[0] =~ /^select/i)
527 0 6 unless @_ == 2
543 0 4 unless @_ == 2
561 1 1 if ($e1->_multi > 0)
592 6 402 if (my $alias = $self->_alias)
619 14 0 defined $self->val ? :
636 63 0 defined $self->val ? :
32 31 defined $self->type ? :