Branch Coverage

File:blib/lib/Database/BI/Calc.pm
Coverage:73.2%

line%coveragebranch
183100TFif (length $expr > $MAX_EXPR_LEN)
190100TFunless ($ok)
200100TFunless ($ok)
206100TFif ($tokens->[$pos]{'type'} ne $T_EOF)
22550TFunless defined $self->{'_code'}
22850TFunless $ok
251100TFif ($ch =~ /\A\s/)
254100TFif (substr($expr, $pos) =~ /\A(\d+(?:\.\d+)?(?:[eE][+-]?\d+)?)/)
261100TFif ($ch eq "\"")
263100TFif $end < 0
27450TFif ($ch eq "'")
2760TFif $end < 0
287100TFif (substr($expr, $pos) =~ /\A([a-zA-Z_][a-zA-Z0-9_]*)/)
294100TFif ($pos + 1 < $len)
296100TFif ($two eq "!=")
300100TFif ($two eq "<=")
304100TFif ($two eq ">=")
308100TFif ($two eq "==")
314100TFif ($ch eq "=")
318100TFif ($ch eq "<")
322100TFif ($ch eq ">")
328100TFif (exists $single_ops{$ch})
347100TFif $$depth_ref >= $MAX_DEPTH
35450TFunless $tok->{'type'} eq $expected
370100TFif ($type eq $T_EQ or $type eq $T_NEQ or $type eq $T_LT or $type eq $T_LE or $type eq $T_GT or $type eq $T_GE)
380100TFunless defined $lv and defined $rv
381100TFif (&looks_like_number($lv) and &looks_like_number($rv)) { }
382100TF$lv == $rv ? :
100TF$lv != $rv ? :
100TF$lv < $rv ? :
100TF$lv <= $rv ? :
100TF$lv > $rv ? :
100TF$lv >= $rv ? :
100TF$op eq $T_GT ? :
100TF$op eq $T_LE ? :
100TF$op eq $T_LT ? :
100TF$op eq $T_NEQ ? :
100TF$op eq $T_EQ ? :
39050TF$cmp == 0 ? :
0TF$cmp != 0 ? :
50TF$cmp < 0 ? :
0TF$cmp <= 0 ? :
0TF$cmp > 0 ? :
0TF$cmp >= 0 ? :
0TF$op eq $T_GT ? :
0TF$op eq $T_LE ? :
50TF$op eq $T_LT ? :
50TF$op eq $T_NEQ ? :
100TF$op eq $T_EQ ? :
418100TFif ($op eq $T_PLUS) { }
42150TFunless defined $lv and defined $rv
422100TFunless &looks_like_number($lv) and &looks_like_number($rv)
42850TFunless defined $lv and defined $rv
42950TFunless &looks_like_number($lv) and &looks_like_number($rv)
451100TFif ($op eq $T_STAR) { }
45450TFunless defined $lv and defined $rv
45550TFunless &looks_like_number($lv) and &looks_like_number($rv)
46150TFunless defined $lv and defined $rv
46250TFunless &looks_like_number($lv) and &looks_like_number($rv)
463100TFif $rv == 0
478100TFif ($tok->{'type'} eq $T_MINUS)
48350TFunless defined $v and &looks_like_number($v)
489100TFif ($tok->{'type'} eq $T_PLUS)
495100TFif ($tok->{'type'} eq $T_LPAREN)
503100TFif ($tok->{'type'} eq $T_NUM)
510100TFif ($tok->{'type'} eq $T_STR)
51750TFif ($tok->{'type'} eq $T_IDENT)
522100TF$$tokens[$$pos_ref]{'type'} eq $T_LPAREN ? :
535100TFunless exists $FUNCTIONS{$lc} or $lc eq "if"
539100TFif ($$tokens[$$pos_ref]{'type'} ne $T_RPAREN)
549100TFif ($lc eq "if")
552100TF&$cond_fn($_[0]) ? :
571100TFif $cols->{$name}
577100TFif (lc $col eq $lc_spaced)
60750TFunless defined $val and defined $pattern and length $val
60850TFif ($pattern eq '%m/%d/%Y') { }
0TFelsif ($pattern eq '%d/%m/%Y') { }
0TFelsif ($pattern eq '%d-%b-%Y') { }
60950TFunless $val =~ m[\A(\d{1,2})/(\d{1,2})/(\d{4})\z]
6120TFunless $val =~ m[\A(\d{1,2})/(\d{1,2})/(\d{4})\z]
6150TFunless $val =~ /\A(\d{1,2})-([A-Za-z]{3})-(\d{4})\z/
6170TFunless defined $mon