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 |