| line |
!l |
l&&!r |
l&&r |
condition |
|
176
|
0 |
0 |
0 |
exists $$self{'non_fields'}{'create'} and exists $$self{'non_fields'}{'create'}{$fieldargs[0]} |
|
331
|
0 |
0 |
0 |
not $$stmt{'set'} and $$unset{'values'} |
|
371
|
0 |
0 |
0 |
@def >= 3 and $def[-2] eq 'as' |
|
377
|
1 |
0 |
0 |
$def[0] eq '*' and $$stmt{'table_definitions'} |
|
725
|
41 |
0 |
0 |
$char eq '-' and $$self{'dash_comments'} |
|
|
41 |
0 |
0 |
$char eq '-' and $$self{'dash_comments'} and $chars[$i] eq '-' |
|
|
41 |
0 |
0 |
$char eq '#' and $$self{'pound_comments'} |
|
|
41 |
0 |
0 |
$char eq '/' and $$self{'star_comments'} |
|
|
41 |
0 |
0 |
$char eq '/' and $$self{'star_comments'} and $chars[$i] eq '*' |
|
|
41 |
0 |
0 |
$$self{'field_braces'} and $char eq '[' |
|
|
40 |
0 |
1 |
$char eq '=' and $$self{'perl_regex'} |
|
|
40 |
0 |
1 |
$char eq '=' and $$self{'perl_regex'} and $chars[$i] |
|
|
0 |
1 |
0 |
$char eq '=' and $$self{'perl_regex'} and $chars[$i] and $chars[$i] eq '~' |
|
727
|
0 |
0 |
0 |
$char eq '\\' and $$self{'backslash_escape'} |
|
735
|
0 |
0 |
0 |
not $inregex and defined $chars[$i] |
|
|
0 |
0 |
0 |
not $inregex and defined $chars[$i] and $chars[$i] eq $inquote |
|
|
0 |
0 |
0 |
not $inregex and defined $chars[$i] and $chars[$i] eq $inquote and $$self{'dquote_escape'} |
|
749
|
0 |
0 |
0 |
$i <= $#chars and $chars[$i] =~ /[a-z]/i |
|
775
|
0 |
0 |
0 |
$char eq '*' and $chars[$i] eq '/' |
|
825
|
0 |
0 |
0 |
$i <= $#chars and $chars[$i] =~ /[\sa-z]/i |
|
885
|
8 |
0 |
0 |
$el eq '!' and $$self{'!_is_not'} |
|
919
|
0 |
0 |
0 |
not ref $rv[$i + 1] and exists $$dtokens{$el}{$rv[$i + 1]} |
|
1018
|
0 |
7 |
2 |
not ref $el and exists $dels{$el} |
|
|
7 |
2 |
0 |
not ref $el and exists $dels{$el} and $opts{'max'} ? @rv < $opts{'max'} : 1 |
|
1089
|
1 |
1 |
1 |
@args == 1 and UNIVERSAL::isa($args[0], 'ARRAY') |
|
1110
|
0 |
0 |
0 |
UNIVERSAL::isa($arg, 'HASH') and $$arg{'placeholder'} |
|
1117
|
0 |
0 |
0 |
@rv and $arg ne ',' |
|
1361
|
0 |
0 |
0 |
$$opts{'params'} and @{$$opts{'params'};} |
|
1386
|
0 |
0 |
0 |
$$parser{'field_braces'} and $arg =~ /^\[.+\]$/s |
|
1427
|
0 |
0 |
0 |
$$opts{'db_record'} and $$parser{'field_braces'} != 2 |
|
|
0 |
0 |
0 |
$$opts{'db_record'} and $$parser{'field_braces'} != 2 and exists $$opts{'db_record'}{$arg} |
|
|
0 |
0 |
0 |
$$opts{'const'} and exists $$opts{'const'}{$arg} |
|
1472
|
0 |
0 |
0 |
not ref $carg and $$bg{$carg} |
|
1478
|
0 |
0 |
0 |
$$funcs{$carg} and $i > 1 |
|
|
0 |
0 |
0 |
$$funcs{$carg} and $i > 1 and exists $allops{$args[$i - 1]} |
|
1512
|
0 |
0 |
0 |
defined $a and defined $b |
|
1679
|
0 |
0 |
0 |
$opts{'const'} and exists $opts{'const'}{$arg} |
|
1720
|
0 |
0 |
0 |
not ref $carg and $$bg{$carg} |
|
1749
|
0 |
0 |
0 |
$rv and $rv == 1 |
|
1774
|
0 |
0 |
0 |
defined $_[0] and not ref $_[0] |
|
1798
|
0 |
0 |
0 |
defined $min and defined $max |
|
1806
|
0 |
0 |
0 |
$expr >= $min && $expr <= $max |
|
1821
|
0 |
0 |
0 |
$right and not defined $left |
|
1928
|
0 |
0 |
0 |
@arg2 == 1 and $arg2[0] eq 'null' |
|
1930
|
0 |
0 |
0 |
@arg2 == 2 and $arg2[0] eq 'not' |
|
|
0 |
0 |
0 |
@arg2 == 2 and $arg2[0] eq 'not' and $arg2[1] eq 'null' |
|
2048
|
0 |
0 |
0 |
$_[0]{'parser'}{'lukas'} and not defined $_[1] |
|
2108
|
0 |
0 |
0 |
$false and @{$false;} |
|
2296
|
0 |
0 |
0 |
@args and $args[0] =~ /^(both|leading|trailing)$/ |
| line |
l |
!l |
condition |
|
180
|
0 |
0 |
$$stmt{'arguments'} ||= [] |
|
424
|
0 |
1 |
$$self{'quotes'} ||= ['"', q[']] |
|
441
|
0 |
1 |
$$self{'double_word_tokens'} ||= {'primary', {'key', 1}, 'current', {'date', 1}, 'order', {'by', 1}, 'group', {'by', 1}} |
|
449
|
0 |
1 |
$$self{'ops'} ||= \@SQL::YASP::Expr::dbin |
|
452
|
0 |
1 |
$$self{'functions'} ||= \%SQL::YASP::Expr::dfuncs |
|
465
|
0 |
1 |
$$self{'non_fields'} ||= {'create', {'constraint', 1, 'unique', 1}} |
|
712
|
1 |
0 |
$carry ||= {} |
|
713
|
1 |
0 |
$$carry{'placeholders'} ||= [] |
|
1488
|
0 |
0 |
$$bg{$carg}{'args'} || 0 |
|
1489
|
0 |
0 |
$$bg{$carg}{'rv'} || 0 |
|
1549
|
0 |
0 |
$$function{'args'} || 0 |
|
2257
|
0 |
0 |
$_[3] ||= 1 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
508
|
0 |
1 |
0 |
$self::defparser ||= $self->new |
|
863
|
0 |
0 |
1 |
ref $el or $$self{'field_braces'} ? $el =~ /^['"\[]/ : $el =~ /^['"]/ |
|
884
|
0 |
0 |
8 |
ref $el or $el =~ /^['"]/ |
|
1022
|
1 |
1 |
0 |
$firstdone or @current |
|
1411
|
0 |
0 |
0 |
$$opts{'assume_fields'} or exists $$opts{'db_record'}{$field_name} |
|
1512
|
0 |
0 |
0 |
$argtype == 4 or defined $a and defined $b |
|
1644
|
0 |
0 |
0 |
$opts{'args'} || $$self{'expr'} |
|
1774
|
0 |
0 |
0 |
$_[0] =~ /^[\+\-]?\d+\.?$/s or $_[0] =~ /^[\+\-]?\d*\.\d+$/s |
|
1817
|
0 |
0 |
0 |
defined $left or not $$opts{'parser'}{'lukas'} |
|
2300
|
0 |
0 |
0 |
$leading ||= $args[0] =~ /^(both|leading)$/ |
|
2301
|
0 |
0 |
0 |
$trailing ||= $args[0] =~ /^(both|trailing)$/ |
|
2307
|
0 |
0 |
0 |
$leading or $trailing |