| line |
true |
false |
branch |
|
104
|
0 |
0 |
unless $self->tree_create($stmt, @$tokens) |
|
|
0 |
1 |
if ($cmd eq 'create') { } |
|
|
1 |
0 |
elsif ($cmd eq 'select') { } |
|
|
0 |
0 |
elsif ($cmd eq 'insert') { } |
|
|
0 |
0 |
elsif ($cmd eq 'update') { } |
|
|
0 |
0 |
elsif ($cmd eq 'delete') { } |
|
|
0 |
0 |
elsif ($opts{'allow_unknown_command'}) { } |
|
105
|
0 |
1 |
unless $self->tree_select($stmt, @$tokens) |
|
109
|
0 |
0 |
unless $self->tree_insert($stmt, @$tokens) |
|
113
|
0 |
0 |
unless $self->tree_update($stmt, @$tokens) |
|
117
|
0 |
0 |
unless $self->tree_delete($stmt, @$tokens) |
|
148
|
0 |
0 |
if ($$stmt{'create_type'} eq 'table') |
|
176
|
0 |
0 |
if (exists $$self{'non_fields'}{'create'} and exists $$self{'non_fields'}{'create'}{$fieldargs[0]}) |
|
201
|
0 |
0 |
if ($arg eq 'not') |
|
241
|
0 |
1 |
unless defined $unset |
|
285
|
0 |
0 |
if ($$unset{'into'}) |
|
287
|
0 |
0 |
unless get_set_fields($stmt, $$unset{'into'}, $unset) |
|
315
|
0 |
0 |
unless get_set_fields($stmt, $opener, $unset) |
|
331
|
0 |
0 |
if (not $$stmt{'set'} and $$unset{'values'}) |
|
338
|
0 |
0 |
if (@fields != @exprs) |
|
371
|
1 |
0 |
if (@def == 1) { } |
|
|
0 |
0 |
elsif (@def >= 3 and $def[-2] eq 'as') { } |
|
377
|
0 |
1 |
if ($def[0] eq '*' and $$stmt{'table_definitions'}) { } |
|
429
|
1 |
0 |
unless exists $$self{'lukas'} |
|
430
|
1 |
0 |
unless exists $$self{'type_fix'} |
|
431
|
1 |
0 |
unless exists $$self{'perl_regex'} |
|
432
|
1 |
0 |
unless exists $$self{'star_comments'} |
|
433
|
1 |
0 |
unless exists $$self{'dash_comments'} |
|
434
|
1 |
0 |
unless exists $$self{'pound_comments'} |
|
435
|
1 |
0 |
unless exists $$self{'!_is_not'} |
|
436
|
1 |
0 |
unless exists $$self{'backslash_escape'} |
|
437
|
1 |
0 |
unless exists $$self{'dquote_escape'} |
|
438
|
1 |
0 |
unless exists $$self{'field_braces'} |
|
476
|
0 |
1 |
unless ((my $class = ref $self) eq 'SQL::YASP') |
|
480
|
0 |
0 |
unless @isa |
|
481
|
0 |
0 |
unless @isa |
|
485
|
0 |
0 |
unless @isa |
|
486
|
0 |
0 |
unless @isa |
|
507
|
1 |
0 |
unless (ref $self) |
|
516
|
0 |
1 |
if $$self{'keep_org_sql'} |
|
532
|
0 |
1 |
unless $self->build_tree($rv, \@tokens, %opts) |
|
551
|
1 |
0 |
unless (exists $opts{$$els[0]}) |
|
562
|
0 |
2 |
if ($opts{$sname} == 1) { } |
|
|
0 |
2 |
elsif ($opts{$sname} == 6) { } |
|
|
1 |
1 |
elsif ($opts{$sname} == 7) { } |
|
|
0 |
1 |
elsif ($opts{$sname} == 2) { } |
|
|
0 |
1 |
elsif ($opts{$sname} == 8) { } |
|
|
1 |
0 |
elsif ($opts{$sname} == 3) { } |
|
|
0 |
0 |
elsif ($opts{$sname} == 4) { } |
|
|
0 |
0 |
elsif ($opts{$sname} == 5) { } |
|
580
|
0 |
1 |
if ref $def |
|
586
|
0 |
1 |
if (@{$table_def;}) { } |
|
599
|
1 |
0 |
if (keys %$tdefs == 1) |
|
603
|
1 |
0 |
if ($key eq $val) |
|
622
|
0 |
0 |
if ($$expr[-1] eq 'desc') |
|
686
|
0 |
0 |
unless @{$arr;} |
|
687
|
0 |
0 |
unless ref $$arr[0] |
|
690
|
0 |
0 |
unless defined $opts{'arg_name'} |
|
716
|
0 |
1 |
ref $sql ? : |
|
717
|
1 |
0 |
unless defined $i |
|
725
|
0 |
41 |
if (defined $inquote) { } |
|
|
0 |
41 |
elsif ($inlinecomment) { } |
|
|
0 |
41 |
elsif ($instar) { } |
|
|
0 |
41 |
elsif ($char eq '-' and $$self{'dash_comments'} and $chars[$i] eq '-') { } |
|
|
0 |
41 |
elsif ($char eq '#' and $$self{'pound_comments'}) { } |
|
|
0 |
41 |
elsif ($char eq '/' and $$self{'star_comments'} and $chars[$i] eq '*') { } |
|
|
0 |
41 |
elsif ($$self{'field_braces'} and $char eq '[') { } |
|
|
0 |
41 |
elsif ($quotes{$char}) { } |
|
|
0 |
41 |
elsif ($char eq '=' and $$self{'perl_regex'} and $chars[$i] and $chars[$i] eq '~') { } |
|
|
0 |
41 |
elsif ($char eq '(') { } |
|
|
0 |
41 |
elsif ($char eq ')') { } |
|
727
|
0 |
0 |
if ($char eq '\\' and $$self{'backslash_escape'}) { } |
|
|
0 |
0 |
elsif ($char eq $inquote) { } |
|
735
|
0 |
0 |
if (not $inregex and defined $chars[$i] and $chars[$i] eq $inquote and $$self{'dquote_escape'}) { } |
|
744
|
0 |
0 |
if ($inregex) { } |
|
769
|
0 |
0 |
unless $char =~ /[\n\r]/ |
|
775
|
0 |
0 |
if ($char eq '*' and $chars[$i] eq '/') |
|
863
|
0 |
1 |
$$self{'field_braces'} ? : |
|
|
0 |
1 |
if (ref $el or $$self{'field_braces'} ? $el =~ /^['"\[]/ : $el =~ /^['"]/) { } |
|
|
1 |
0 |
elsif (length $el) { } |
|
884
|
8 |
0 |
unless (ref $el or $el =~ /^['"]/) |
|
885
|
0 |
8 |
if ($el eq '?') { } |
|
|
0 |
8 |
elsif ($el eq '!' and $$self{'!_is_not'}) { } |
|
917
|
7 |
0 |
unless (ref $el) |
|
918
|
0 |
7 |
if ($$dtokens{$el}) |
|
919
|
0 |
0 |
if (not ref $rv[$i + 1] and exists $$dtokens{$el}{$rv[$i + 1]}) |
|
963
|
0 |
0 |
if ($rv =~ s/^'(.*)'$/$1/s) { } |
|
|
0 |
0 |
elsif ($rv =~ s/^"(.*)"$/$1/s) { } |
|
1012
|
0 |
3 |
unless ref $outer |
|
1013
|
0 |
3 |
if $opts{'max'} |
|
1018
|
0 |
2 |
$opts{'max'} ? : |
|
|
2 |
7 |
if (not ref $el and exists $dels{$el} and $opts{'max'} ? @rv < $opts{'max'} : 1) { } |
|
1019
|
0 |
2 |
if ($opts{'keep_del_back'}) |
|
1022
|
2 |
0 |
if ($firstdone or @current) |
|
1028
|
2 |
0 |
if ($opts{'keep_del_front'}) |
|
1038
|
3 |
0 |
if wantarray |
|
1060
|
0 |
0 |
if wantarray |
|
1073
|
0 |
2 |
unless tie %hash, 'Tie::IxHash' |
|
1108
|
0 |
0 |
if (ref $arg) { } |
|
1110
|
0 |
0 |
if (UNIVERSAL::isa($arg, 'HASH') and $$arg{'placeholder'}) { } |
|
1117
|
0 |
0 |
if (@rv and $arg ne ',') |
|
1132
|
0 |
0 |
ref $_[0] ? : |
|
1149
|
0 |
1 |
if (defined $sql) |
|
1169
|
0 |
0 |
unless $opts{'db_record'} |
|
1173
|
0 |
0 |
if ($n eq '*') { } |
|
1180
|
0 |
0 |
unless $v->evalexpr($sendopts, $val) |
|
1186
|
0 |
0 |
if (exists $opts{'set'}) |
|
1190
|
0 |
0 |
if ($_[$i] eq 'set') |
|
1289
|
0 |
0 |
if (ref $_[1]) { } |
|
1298
|
0 |
0 |
if (exists $$opts{'set'}) |
|
1303
|
0 |
0 |
if ($_[$i] eq 'set') |
|
1314
|
0 |
0 |
if (UNIVERSAL::isa($org_args, 'HASH')) |
|
1321
|
0 |
0 |
if (UNIVERSAL::isa($org_args, 'ARRAY')) { } |
|
|
0 |
0 |
elsif (ref $org_args) { } |
|
1347
|
0 |
0 |
unless (@args) |
|
1353
|
0 |
0 |
if (@args == 1) |
|
1355
|
0 |
0 |
unless defined $arg |
|
1358
|
0 |
0 |
if (UNIVERSAL::isa($arg, 'HASH')) |
|
1360
|
0 |
0 |
if ($$arg{'placeholder'}) { } |
|
1361
|
0 |
0 |
if ($$opts{'params'} and @{$$opts{'params'};}) { } |
|
1363
|
0 |
0 |
if ($$arg{'index'} > $#{$$opts{'params'};}) |
|
1382
|
0 |
0 |
if (UNIVERSAL::isa($arg, 'ARRAY')) |
|
1386
|
0 |
0 |
if ($$parser{'field_braces'} and $arg =~ /^\[.+\]$/s) |
|
1391
|
0 |
0 |
unless ($$opts{'db_record'}) |
|
1401
|
0 |
0 |
if ($$parser{'normalize_fields'}) |
|
1411
|
0 |
0 |
if ($$opts{'assume_fields'} or exists $$opts{'db_record'}{$field_name}) { } |
|
1427
|
0 |
0 |
if ($$funcs{$arg}) { } |
|
|
0 |
0 |
elsif ($$opts{'db_record'} and $$parser{'field_braces'} != 2 and exists $$opts{'db_record'}{$arg}) { } |
|
|
0 |
0 |
elsif ($$opts{'const'} and exists $$opts{'const'}{$arg}) { } |
|
|
0 |
0 |
elsif ($arg =~ /^['"]/) { } |
|
|
0 |
0 |
elsif (is_numeric($arg)) { } |
|
1472
|
0 |
0 |
if (not ref $carg and $$bg{$carg}) |
|
1478
|
0 |
0 |
if ($$funcs{$carg} and $i > 1 and exists $allops{$args[$i - 1]}) |
|
1493
|
0 |
0 |
if ($left[-1] eq 'not') |
|
1499
|
0 |
0 |
if ($argtype == 2) { } |
|
1506
|
0 |
0 |
unless evalexpr(\@left, $opts, $a) |
|
1507
|
0 |
0 |
unless evalexpr([@args[$i + 1 .. $#args]], $opts, $b) |
|
1511
|
0 |
0 |
if ($lukas) { } |
|
|
0 |
0 |
elsif ($typefix) { } |
|
1512
|
0 |
0 |
unless ($argtype == 4 or defined $a and defined $b) |
|
1523
|
0 |
0 |
if ($argtype == 3) { } |
|
|
0 |
0 |
elsif ($argtype == 0) { } |
|
1529
|
0 |
0 |
unless defined $a |
|
1530
|
0 |
0 |
unless defined $b |
|
1538
|
0 |
0 |
$rv ? : |
|
|
0 |
0 |
if $rettype == 1 |
|
1539
|
0 |
0 |
if $not |
|
1548
|
0 |
0 |
if (my $function = $$funcs{$args[0]}) |
|
1552
|
0 |
0 |
if ($argtype == 1) |
|
1563
|
0 |
0 |
if ($argtype == 2) |
|
1572
|
0 |
0 |
unless evalexpr($arg, $opts, $arg) |
|
1576
|
0 |
0 |
if (not $argtype) { } |
|
|
0 |
0 |
elsif ($argtype == 4) { } |
|
|
0 |
0 |
elsif ($argtype == 3) { } |
|
1577
|
0 |
0 |
unless defined $_ |
|
|
0 |
0 |
if $typefix |
|
1588
|
0 |
0 |
if $typefix |
|
1610
|
0 |
0 |
if ($SQL::YASP::err) |
|
1611
|
0 |
0 |
unless ($setval) |
|
1618
|
0 |
0 |
if ($setval) |
|
1638
|
0 |
0 |
if exists $$self{'comparetype'} |
|
1648
|
0 |
0 |
unless $defs = $opts{'defs'} |
|
1659
|
0 |
0 |
unless (@args) |
|
1665
|
0 |
0 |
if (@args == 1) |
|
1667
|
0 |
0 |
unless defined $arg |
|
1670
|
0 |
0 |
if (UNIVERSAL::isa($arg, 'HASH')) |
|
1675
|
0 |
0 |
if (UNIVERSAL::isa($arg, 'ARRAY')) |
|
1679
|
0 |
0 |
if ($$funcs{$arg}) { } |
|
|
0 |
0 |
elsif (exists $$defs{$arg}) { } |
|
|
0 |
0 |
elsif ($opts{'const'} and exists $opts{'const'}{$arg}) { } |
|
|
0 |
0 |
elsif ($arg =~ /^['"]/) { } |
|
|
0 |
0 |
elsif (is_numeric($arg)) { } |
|
1682
|
0 |
0 |
if defined $$func{'c'} |
|
1720
|
0 |
0 |
if (not ref $carg and $$bg{$carg}) |
|
1722
|
0 |
0 |
if defined $$subdef{'c'} |
|
1732
|
0 |
0 |
if (my $function = $$funcs{$args[0]}) |
|
1733
|
0 |
0 |
if $$function{'c'} |
|
1749
|
0 |
0 |
unless $rv and $rv == 1 |
|
1750
|
0 |
0 |
$_[1] ? : |
|
1774
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
1782
|
0 |
0 |
unless is_numeric($_[0]) |
|
1798
|
0 |
0 |
unless (defined $min and defined $max) |
|
1801
|
0 |
0 |
unless evalexpr($expr, $opts, $expr) |
|
1802
|
0 |
0 |
unless evalexpr($min, $opts, $min) |
|
1803
|
0 |
0 |
unless evalexpr($max, $opts, $max) |
|
1815
|
0 |
0 |
unless evalexpr($left, $opts, $left) |
|
1817
|
0 |
0 |
unless $left |
|
|
0 |
0 |
if (defined $left or not $$opts{'parser'}{'lukas'}) |
|
1820
|
0 |
0 |
unless evalexpr($right, $opts, $right) |
|
1821
|
0 |
0 |
if $right and not defined $left |
|
1875
|
0 |
0 |
unless evalexpr($arga, $opts, $arga) |
|
1880
|
0 |
0 |
if ($$argb[$i] eq 'escape') |
|
1883
|
0 |
0 |
unless evalexpr(\@clause, $opts, $esc) |
|
1891
|
0 |
0 |
unless evalexpr($argb, $opts, $argb) |
|
1902
|
0 |
0 |
if $bonusopts{'i'} |
|
1923
|
0 |
0 |
unless evalexpr($arg1, $opts, $arg1) |
|
1928
|
0 |
0 |
if (@arg2 == 1 and $arg2[0] eq 'null') |
|
1930
|
0 |
0 |
if (@arg2 == 2 and $arg2[0] eq 'not' and $arg2[1] eq 'null') |
|
1956
|
0 |
0 |
if $$rx{'params'} |
|
1970
|
0 |
0 |
unless evalexpr($arg1, $opts, $arg1) |
|
1971
|
0 |
0 |
if $ci |
|
1975
|
0 |
0 |
unless evalexpr($choice, $opts, $choice) |
|
1976
|
0 |
0 |
if $ci |
|
1977
|
0 |
0 |
if $arg1 eq $choice |
|
2048
|
0 |
0 |
if $_[0]{'parser'}{'lukas'} and not defined $_[1] |
|
2049
|
0 |
0 |
$_[1] ? : |
|
2101
|
0 |
0 |
unless evalexpr($expr, $opts, $val) |
|
2103
|
0 |
0 |
if ($val) |
|
2104
|
0 |
0 |
unless evalexpr($true, $opts, $val) |
|
2108
|
0 |
0 |
unless ($false and @{$false;}) |
|
2111
|
0 |
0 |
unless evalexpr($false, $opts, $val) |
|
2134
|
0 |
0 |
unless defined $sep |
|
2142
|
0 |
0 |
if defined $_ |
|
2151
|
0 |
0 |
unless my $fh = 'FileHandle'->new($_[1]) |
|
2175
|
0 |
0 |
if $_[1] >= 0 |
|
2176
|
0 |
0 |
$_[1] =~ /\.0*[1-9]/ ? : |
|
2182
|
0 |
0 |
if $_[1] <= 0 |
|
2183
|
0 |
0 |
$_[1] =~ /\.0*[1-9]/ ? : |
|
2285
|
0 |
0 |
unless ($str) |
|
2286
|
0 |
0 |
unless evalexpr($left, $opts, $str) |
|
2292
|
0 |
0 |
unless evalexpr($str, $opts, $str) |
|
2307
|
0 |
0 |
unless ($leading or $trailing) |
|
2311
|
0 |
0 |
if (@args) { } |
|
2312
|
0 |
0 |
unless evalexpr(\@args, $opts, $regex) |
|
2318
|
0 |
0 |
if $leading |
|
2319
|
0 |
0 |
if $trailing |
|
2331
|
0 |
0 |
unless @padstr |
|
2349
|
0 |
0 |
unless @padstr |
|
2368
|
0 |
0 |
unless evalexpr($str, $opts, $str) |
|
2369
|
0 |
0 |
unless evalexpr($pos, $opts, $pos) |
|
2371
|
0 |
0 |
unless evalexpr($len, $opts, $len) |
|
|
0 |
0 |
if ($len) { } |
|
2389
|
0 |
0 |
if ($count < 0) |
|
2395
|
0 |
0 |
if $reverse |
|
2397
|
0 |
0 |
if (@arr > $count) |
|
2400
|
0 |
0 |
if $reverse |
|
2421
|
0 |
0 |
if (lc $_[$i] eq $val) |