line |
true |
false |
branch |
323
|
20 |
0 |
if scalar @_ |
335
|
1 |
0 |
if ($get_dbh) { } |
375
|
0 |
0 |
if ($s eq 'all') { } |
381
|
0 |
0 |
unless $dialect{$s} |
390
|
0 |
0 |
if (not ref $s) { } |
|
0 |
0 |
elsif (ref $s eq 'ARRAY') { } |
406
|
0 |
9 |
unless $dialect{$s} |
619
|
5 |
0 |
$read_dialect{'mysql'} ? : |
|
5 |
0 |
$read_dialect{'postgresql'} ? : |
|
5 |
0 |
$read_dialect{'oracle'} ? : |
685
|
1 |
0 |
if length $s <= 400 |
1137
|
361 |
2824 |
unless defined $s |
1138
|
0 |
2824 |
$s =~ /[\x00-\x1f\x7f\']/ ? : |
1147
|
427 |
5788 |
if ($$s =~ /\G\n/cg) |
1151
|
2252 |
3536 |
if $$s =~ /\G[^\n\S]+/cg |
1152
|
19 |
3517 |
if $$s =~ /\G\#[^\n]*/cg |
1160
|
0 |
3182 |
unless $kind |
1185
|
1 |
2 |
if (defined $t->{$key}) |
1190
|
1 |
1 |
if ($t->{$key}) |
1195
|
1 |
0 |
if (scalar keys %opt) { } |
1243
|
0 |
62 |
if $@ |
1257
|
0 |
170 |
if $@ |
1270
|
0 |
50 |
if $@ |
1291
|
666 |
71 |
if ($reserved{$name}) { } |
1314
|
172 |
737 |
if (my $tree = $multi_token{$name}) { } |
1319
|
140 |
187 |
unless $$s =~ /\G ([A-Z][A-Z_0-9]*)\b /cgsx |
1324
|
32 |
155 |
unless ($tree) |
1353
|
909 |
2281 |
if $$s =~ /\G ([A-Z][A-Z_0-9]*)\b /cgsx |
1354
|
529 |
1752 |
if $$s =~ /\G ([a-z][a-z_0-9]*)\b /cgsx |
1355
|
0 |
1752 |
if $$s =~ /\G \`([^\n\\\`]+)\` /cgsx |
1357
|
8 |
1744 |
if ($$s =~ /\G ([A-Z][a-z][A-Za-z0-9]*)\b /cgsx) |
1360
|
0 |
8 |
unless &good_interpol_type($interpol_new) |
1363
|
0 |
8 |
if $interpol |
1367
|
0 |
8 |
if $tok->{'error'} |
1371
|
0 |
8 |
unless $tok->{'kind'} =~ /^interpol/ |
1376
|
0 |
1744 |
if $$s =~ /\G ([A-Za-z_][A-Za-z_0-9]*) /cgsx |
1387
|
1 |
1743 |
if $$s =~ /\G 0x([0-9a-f_]+)\b /cgisx |
1388
|
1 |
1742 |
if $$s =~ /\G (0b[0-1_]+)\b /cgsx |
1389
|
216 |
1526 |
if $$s =~ /\G ([1-9][0-9_]*)\b /cgsx |
1390
|
17 |
1509 |
if $$s =~ /\G ([0][0-7_]*)\b /cgsx |
1393
|
0 |
1509 |
if $$s =~ /\G ([1-9][0-9_]*)(?=[KMG]\b) /cgsx |
1397
|
0 |
1509 |
if $$s =~ /\G( (?= [1-9] # not empty, but numeric
| [.][0-9]
)
(?: [1-9] [0-9_]* )?
(?: [.] [0-9_]+ )?
(?: e[-+] [0-9_]+ )?\b )/cgisx |
1405
|
0 |
1509 |
if $$s =~ /\G ([0-9][a-z_0-9]*) /cgisx |
1409
|
71 |
1438 |
if $$s =~ /\G (?= \$\S ) /cgsx |
1410
|
71 |
1367 |
if $$s =~ /\G (?= \@\S ) /cgsx |
1411
|
28 |
1339 |
if $$s =~ /\G (?= \%[^\s\d] ) /cgsx |
1412
|
62 |
1277 |
if $$s =~ /\G (?= \{ ) /cgsx |
1413
|
50 |
1227 |
if $$s =~ /\G (?= [\'\"] ) /cgsx |
1416
|
1186 |
41 |
if $$s =~ m(\G(
== | != | <= | >=
| \&\& | \|\| | \! | \^\^
| \*\* | \^
| [-+*/;:,.()\[\]{}<=>?\%\&\|]
))cgsx |
1425
|
1 |
40 |
if $$s =~ /\G(.)/cgs |
1469
|
10897 |
874 |
unless ref $x |
1472
|
874 |
0 |
if ref $x eq 'ARRAY' |
1475
|
0 |
0 |
if ref $x eq 'HASH' |
1491
|
1108 |
8106 |
unless $kind |
1495
|
1416 |
6690 |
if $kind{$lx->{'token'}{'kind'}} |
1505
|
1416 |
7798 |
if (my $x = &looking_at_raw($lx, $kind)) |
1506
|
1324 |
92 |
if $do_shift |
1515
|
1 |
0 |
if ref $_[0] eq 'CODE' |
1520
|
1 |
0 |
if $map |
1523
|
0 |
1 |
if scalar @l == 0 |
1524
|
1 |
0 |
if scalar @l == 1 |
1525
|
0 |
0 |
if scalar @l == 2 |
1533
|
778 |
1 |
if (my $x = &looking_at($lx, $kind, $do_shift)) { } |
|
0 |
1 |
elsif (my $err = &lx_token_error($lx)) { } |
1584
|
244 |
2333 |
ref $kind ? : |
1623
|
0 |
1484 |
if $pos{$p}++ |
1626
|
9 |
1475 |
if &looking_at($lx, $end) |
1627
|
1 |
1474 |
if &looking_at($lx, '') |
1634
|
2 |
1463 |
unless my(@result1) = &$parse_elem($lx) |
1659
|
0 |
154 |
if $lx->{'error'} |
1671
|
7487 |
2048 |
if (exists $hash->{$key}) { } |
|
1086 |
962 |
elsif (exists $$hash{-'default'}) { } |
1683
|
0 |
392 |
unless exists $hash->{$result} |
1693
|
8243 |
0 |
if (my $code = &find_ref(\%case, $value)) |
1703
|
1 |
1 |
if ($lx->{'token'}{'error'}) |
1716
|
1 |
0 |
if (my $err = &lx_token_error($lx)) { } |
|
0 |
0 |
elsif (scalar keys %opt > 10) { } |
1752
|
0 |
49 |
if ($r->{'type'} eq 'num') |
1822
|
0 |
324 |
unless &parse_ident_chain($lx, $arr) |
1824
|
0 |
324 |
if scalar @$arr < 1 |
1825
|
0 |
324 |
if (scalar @$arr > 4) |
1846
|
0 |
186 |
unless &parse_ident_chain($lx, $arr) |
1848
|
0 |
186 |
if scalar @$arr < 1 |
1849
|
0 |
186 |
if (scalar @$arr > 3) |
1941
|
0 |
49 |
if $lx->{'error'} |
1953
|
0 |
2 |
unless $r->{'name'} = &parse_column_name($lx) |
1955
|
1 |
1 |
if (&looking_at($lx, '(', 1)) |
1957
|
0 |
1 |
unless $r->{'length'} = &parse_limit_expr($lx) and &expect($lx, ')', 1) |
1961
|
1 |
1 |
if (&looking_at($lx, 'DESC', 1)) { } |
|
0 |
1 |
elsif (&looking_at($lx, 'ASC', 1)) { } |
1991
|
0 |
3 |
if $lx->{'error'} |
2003
|
0 |
122 |
unless $r->{'table'} = &parse_table($lx) |
2005
|
3 |
119 |
if (&looking_at($lx, 'AS', 1)) |
2007
|
0 |
3 |
unless $r->{'as'} = &parse_table_name($lx) |
2021
|
9 |
164 |
if (&looking_at($lx, '.')) { } |
2043
|
0 |
0 |
defined $sg ? : |
|
0 |
0 |
defined $pl ? : |
|
0 |
0 |
$cnt == 1 ? : |
2050
|
0 |
24 |
unless my $limit = &parse_limit_num($lx) |
2071
|
0 |
57 |
unless &expect($lx, '(', 1) and my $list = &parse_list([], $lx, $func, ',', ')') and &expect($lx, ')', 1) |
2085
|
27 |
46 |
if (my $spec = &find_ref(\%type_spec, $lx->{'token'}{'kind'})) |
2086
|
1 |
26 |
if ($spec->{'value_list'}) { } |
2090
|
0 |
1 |
unless my $value_list = &parse_list_delim($lx, \&SQL::Yapp::parse_expr) |
2139
|
0 |
4 |
unless my $arg = &parse_charset($lx) |
2152
|
0 |
1 |
unless my $arg = &parse_collate($lx) |
2178
|
0 |
23 |
unless my $list = &parse_list([], $lx, \&SQL::Yapp::parse_limit_expr, ',', ')') |
2184
|
0 |
1 |
if (scalar @$list > 1) |
2194
|
0 |
1 |
if (&looking_at($lx, ')')) { } |
2199
|
0 |
1 |
unless my $unit = &parse_char_unit($lx) |
2206
|
0 |
0 |
if (scalar @$list > 1) |
2217
|
0 |
22 |
if (scalar @$list > 2) |
2226
|
0 |
23 |
if $lx->{'error'} |
2227
|
0 |
23 |
unless &expect($lx, ')', 1) |
2243
|
0 |
86 |
if $lx->{'error'} |
2246
|
30 |
56 |
unless defined $r->{'functor'} |
2256
|
8 |
22 |
if (&looking_at($lx, ['interpol', 'interpolType'])) { } |
2262
|
0 |
22 |
unless ($type_spec{$lx->{'token'}{'kind'}}) |
2278
|
0 |
1 |
unless my $arg = &parse_list([], $lx, \&SQL::Yapp::parse_type, ',', ')') |
2294
|
0 |
1 |
unless my $r = &parse_type_list($lx) and &expect($lx, ')', 1) |
2324
|
0 |
3 |
unless $r->{'table'} = &parse_table($lx) and $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_name) |
2326
|
1 |
2 |
if (&looking_at($lx, 'MATCH', 1)) |
2335
|
0 |
1 |
unless $r->{'on_delete'} = &parse_on_action($lx) |
2340
|
0 |
0 |
unless $r->{'on_update'} = &parse_on_action($lx) |
2345
|
0 |
3 |
if $lx->{'error'} |
2358
|
2 |
36 |
if (&looking_at($lx, 'CONSTRAINT', 1)) |
2360
|
0 |
2 |
unless $constraint = &parse_constraint($lx) |
2365
|
0 |
20 |
if ($constraint) { } |
2370
|
4 |
16 |
if ($func) |
2429
|
0 |
6 |
unless my $val = &parse_expr($lx) |
2442
|
0 |
0 |
unless my $val = &parse_expr($lx) |
2457
|
0 |
0 |
unless my $val = &parse_expr($lx) |
2484
|
0 |
1 |
unless my $ref = &parse_references($lx) |
2493
|
38 |
0 |
$read_dialect{'mysql'} ? : |
2509
|
0 |
38 |
if $lx->{'error'} |
2512
|
16 |
22 |
unless defined $r->{'functor'} |
2534
|
0 |
9 |
unless $r->{'datatype'} = &parse_type($lx) |
2537
|
0 |
16 |
if $lx->{'error'} |
2547
|
3 |
6 |
if (&looking_at($lx, [@SELECT_INITIAL, 'interpolStmt'])) { } |
2549
|
0 |
3 |
unless my $q = &parse_select_stmt($lx) |
2560
|
0 |
6 |
unless my $arg = &parse_list([], $lx, \&SQL::Yapp::parse_expr, ',', ')') |
2576
|
0 |
9 |
unless my $r = &parse_expr_list($lx) and &expect($lx, ')', 1) |
2623
|
14 |
20 |
if (not ref $e) { } |
|
13 |
7 |
elsif (ref $e eq 'SCALAR') { } |
|
7 |
0 |
elsif (ref $e eq 'ARRAY') { } |
2625
|
0 |
14 |
unless &expect($lx, $e, 1) |
2630
|
0 |
13 |
unless my $arg = &parse_thing($lx, $$e) |
2634
|
2 |
5 |
if (&looking_at($lx, $e->[0])) |
2636
|
0 |
2 |
unless &parse_funcsep($lx, $r, $e) |
2652
|
0 |
9 |
unless $cond |
2663
|
22 |
20 |
unless &looking_at($lx, 'WHEN', 1) |
2668
|
9 |
11 |
if ($functor and $functor->{'allow_when'}) { } |
2676
|
0 |
20 |
unless $cond and &expect($lx, 'THEN', 1) and my $expr = &parse_expr($lx) |
2690
|
0 |
10 |
unless &looking_at($lx, 'WHEN', 1) and my $cond = &parse_expr($lx) and &expect($lx, 'THEN', 1) and my $expr = &parse_expr($lx) |
2706
|
1 |
182 |
if ($right_mark || '') eq 'string' and $right->{'value'} eq 'IN' |
2709
|
178 |
4 |
unless $left |
2715
|
1 |
3 |
if $left->{'value'} eq $right->{'value'} and $left->{'read_type'} eq 'infix()' |
2718
|
0 |
3 |
if ($do_prec) { } |
2720
|
0 |
0 |
if ($left->{'prec'} and $right->{'prec'}) |
2722
|
0 |
0 |
if $left->{'prec'} > $right->{'prec'} |
2725
|
0 |
0 |
if $left->{'prec'} < $right->{'prec'} |
2728
|
0 |
0 |
if ($left->{'assoc'} and $right->{'assoc'} and $left->{'assoc'} == $right->{'assoc'}) |
2731
|
0 |
0 |
if ($left->{'assoc'} == -1 and $right_mark) { } |
2743
|
3 |
0 |
if (defined $left->{'value2'}) |
2756
|
0 |
183 |
unless ($result) |
2768
|
849 |
262 |
unless my $functor = &find_ref(\%$map, $kind) |
2770
|
3 |
259 |
if (my $accept = $functor->{'accept'}) |
2772
|
3 |
0 |
if ($read_dialect{$a}) |
2785
|
0 |
257 |
if $r->{'arg'} |
2800
|
183 |
829 |
if (my $right = &find_functor(\%functor_suffix, $kind)) |
2802
|
0 |
183 |
unless my $action = &shift_or_reduce($lx, $left, $right, $right_mark) |
2804
|
178 |
5 |
if ($action == 1) |
2814
|
1 |
90 |
unless my $arg2 = &parse_thing($lx, scalar &get_rhs($right, 0), $right, 1) |
2822
|
0 |
64 |
unless my $argi = &parse_thing($lx, scalar &get_rhs($right, $i++), $right, 1) |
2829
|
0 |
2 |
unless my $arg2 = &parse_thing($lx, scalar &get_rhs($right, 0), $right, 1) |
2833
|
0 |
2 |
if (&looking_at($lx, $right->{'value2'}, 1)) |
2835
|
0 |
0 |
unless my $arg3 = &parse_thing($lx, scalar &get_rhs($right, 1), $right, 1) |
2843
|
0 |
2 |
unless my $arg2 = &parse_thing($lx, scalar &get_rhs($right, 0), $right, 1) and &expect($lx, $right->{'value2'}, 1) and my $arg3 = &parse_thing($lx, scalar &get_rhs($right, 1), $right, 1) |
2852
|
1 |
177 |
if $lx->{'error'} |
2912
|
1 |
6 |
if (&looking_at($lx, '(', 1) and my $functor = &find_functor(\%functor_special, $r->{'token'}{'kind'})) |
2918
|
0 |
1 |
unless my $arg = &parse_column_name($lx) and &expect($lx, ')', 1) |
2929
|
12 |
22 |
if (&looking_at($lx, ['WHEN', 'ELSE', 'END'])) { } |
2931
|
0 |
12 |
unless $r->{'arg'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_when) |
2936
|
0 |
22 |
unless $r->{'switchval'} = &parse_expr($lx) and $r->{'arg'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_when_post) |
2939
|
24 |
10 |
if (&looking_at($lx, 'ELSE', 1)) |
2941
|
0 |
24 |
unless $r->{'otherwise'} = &parse_expr($lx) |
2945
|
0 |
34 |
unless &expect($lx, 'END', 1) |
2951
|
0 |
1 |
unless ($functor and $functor->{'comparison'} and $right_mark) |
2956
|
0 |
1 |
unless ($functor2) |
2963
|
0 |
1 |
unless &expect($lx, '(', 1) and my $q = &parse_select_stmt($lx) and &expect($lx, ')', 1) |
2976
|
2 |
11 |
if (&looking_at($lx, [@SELECT_INITIAL, 'interpolStmt'])) { } |
2978
|
0 |
2 |
unless my $q = &parse_select_stmt($lx) |
2984
|
0 |
11 |
unless my $arg = &parse_expr($lx) |
2989
|
0 |
13 |
unless &expect($lx, ')', 1) |
2994
|
9 |
68 |
if (not $functor2 and $lx->{'token'}{'type'} eq 'keyword') |
2999
|
77 |
0 |
if ($functor2) { } |
|
0 |
0 |
elsif (not $lx->{'error'}) { } |
3006
|
16 |
29 |
if (&looking_at($lx, '(', 0)) { } |
3008
|
0 |
16 |
unless $r->{'arg'} = &parse_list_delim($lx, \&SQL::Yapp::parse_expr) |
3012
|
0 |
29 |
unless my $arg = &parse_thing($lx, scalar &get_rhs($functor2, 0), $functor2, 0) |
3018
|
0 |
25 |
unless $r->{'arg'} = &parse_list_delim($lx, \&SQL::Yapp::parse_expr) |
3022
|
0 |
1 |
unless &expect($lx, '(', 1) and my $arg1 = &parse_column_name($lx) and &expect($lx, ')', 1) |
3030
|
0 |
6 |
unless &expect($lx, '(', 1) and &parse_funcsep($lx, $r, $functor2->{'rhs'}) |
3033
|
0 |
77 |
if $lx->{'error'} |
3043
|
0 |
817 |
if $lx->{'error'} |
3045
|
0 |
817 |
unless $r |
3073
|
1 |
225 |
unless $r->{'expr'} = &parse_expr($lx) |
3075
|
4 |
221 |
if (&looking_at($lx, 'AS', 1)) |
3077
|
0 |
4 |
unless $r->{'as'} = &parse_column_name($lx) |
3094
|
0 |
14 |
unless $r->{'expr'} = &parse_expr($lx) |
3099
|
3 |
18 |
if ($lx->{'token'}{'type'} eq 'string') { } |
3105
|
0 |
3 |
unless $r->{'expr'} = &parse_expr($lx) |
3114
|
0 |
35 |
if $lx->{'error'} |
3144
|
3 |
119 |
if (&looking_at($lx, 'NATURAL', 1)) |
3163
|
0 |
2 |
if ($r->{'natural'}) |
3181
|
0 |
122 |
if $lx->{'error'} |
3183
|
112 |
10 |
unless (&looking_at($lx, 'JOIN', 1)) |
3184
|
0 |
112 |
if ($shifted) |
3192
|
0 |
10 |
unless $r->{'table'} = &parse_list([], $lx, \&SQL::Yapp::parse_table_as, ',') |
3194
|
5 |
5 |
if ($want_condition) |
3203
|
0 |
2 |
unless $r->{'using'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_name) |
3209
|
0 |
127 |
if $lx->{'error'} |
3210
|
112 |
15 |
unless $r |
3219
|
5 |
483 |
if (my $x = &looking_at($lx, $words, 1)) |
3260
|
0 |
180 |
unless &expect($lx, 'SELECT', 1) |
3280
|
180 |
0 |
$read_dialect{'mysql'} ? : |
3288
|
180 |
0 |
$read_dialect{'mysql'} ? : |
3297
|
1 |
179 |
unless $r->{'expr_list'} = &parse_list([], $lx, \&SQL::Yapp::parse_expr_as, ',') |
3299
|
94 |
85 |
if (&looking_at($lx, 'FROM', 1)) |
3302
|
0 |
94 |
unless $r->{'from'} = &parse_list([], $lx, \&SQL::Yapp::parse_table_as, ',') and $r->{'join'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_join) |
3304
|
44 |
50 |
if (&looking_at($lx, 'WHERE', 1)) |
3306
|
0 |
44 |
unless $r->{'where'} = &parse_where($lx) |
3308
|
6 |
88 |
if (&looking_at($lx, 'GROUP BY', 1)) |
3310
|
0 |
6 |
unless $r->{'group_by'} = &parse_list([], $lx, \&SQL::Yapp::parse_order, ',') |
3314
|
1 |
93 |
if (&looking_at($lx, 'HAVING', 1)) |
3316
|
0 |
1 |
unless $r->{'having'} = &parse_expr($lx) |
3318
|
8 |
86 |
if (&looking_at($lx, 'ORDER BY', 1)) |
3320
|
0 |
8 |
unless $r->{'order_by'} = &parse_list([], $lx, \&SQL::Yapp::parse_order, ',') |
3323
|
4 |
90 |
if (&looking_at($lx, 'LIMIT', 1)) |
3324
|
4 |
0 |
unless (&looking_at($lx, 'ALL', 1)) |
3326
|
2 |
2 |
if (&looking_at($lx, ',', 1)) { } |
3335
|
1 |
93 |
if (not $r->{'limit_offset'} and &looking_at($lx, 'OFFSET', 1)) |
3355
|
94 |
0 |
$read_dialect{'mysql'} || $read_dialect{'postgresql'} ? : |
|
94 |
0 |
$read_dialect{'mysql'} ? : |
|
94 |
0 |
$read_dialect{'postgresql'} ? : |
3384
|
0 |
13 |
unless &expect($lx, 'INSERT', 1) |
3393
|
13 |
0 |
$read_dialect{'mysql'} ? : |
3405
|
0 |
13 |
unless $r->{'into'} = &parse_table($lx) |
3407
|
5 |
8 |
if (&looking_at($lx, '(')) |
3409
|
0 |
5 |
unless $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_name) |
3427
|
0 |
8 |
if ($r->{'column'}) |
3441
|
0 |
13 |
if $lx->{'error'} |
3443
|
1 |
12 |
if ($read_dialect{'mysql'} and &looking_at($lx, 'ON DUPLICATE KEY UPDATE', 1)) |
3447
|
0 |
1 |
unless $r->{'duplicate_update'} = &parse_list([], $lx, \&SQL::Yapp::parse_expr, ',') |
3471
|
0 |
9 |
unless &expect($lx, 'UPDATE', 1) |
3487
|
9 |
0 |
$read_dialect{'mysql'} ? : |
|
9 |
0 |
$read_dialect{'postgresql'} ? : |
3496
|
0 |
9 |
unless $r->{'table'} = &parse_list([], $lx, \&SQL::Yapp::parse_table_as, ',') and &expect($lx, 'SET', 1) and $r->{'set'} = &parse_list([], $lx, \&SQL::Yapp::parse_expr, ',') |
3498
|
1 |
8 |
if (&looking_at($lx, 'FROM', 1)) |
3500
|
0 |
1 |
unless $r->{'from'} = &parse_list([], $lx, \&SQL::Yapp::parse_table_as, ',') |
3503
|
0 |
9 |
unless $r->{'join'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_join) |
3505
|
9 |
0 |
if (&looking_at($lx, 'WHERE', 1)) |
3507
|
0 |
9 |
unless $r->{'where'} = &parse_where($lx) |
3509
|
1 |
8 |
if (&looking_at($lx, 'ORDER BY', 1)) |
3511
|
0 |
1 |
unless $r->{'order_by'} = &parse_list([], $lx, \&SQL::Yapp::parse_order, ',') |
3513
|
1 |
8 |
if (&looking_at($lx, 'LIMIT', 1)) |
3538
|
0 |
4 |
unless &expect($lx, 'DELETE', 1) |
3547
|
4 |
0 |
$read_dialect{'mysql'} ? : |
3555
|
0 |
4 |
unless &expect($lx, 'FROM', 1) |
3560
|
4 |
0 |
$read_dialect{'postgresql'} ? : |
3566
|
0 |
4 |
unless $r->{'from'} = &parse_list([], $lx, \&SQL::Yapp::parse_table_as, ',') |
3568
|
2 |
2 |
if (&looking_at($lx, 'USING', 1)) |
3570
|
0 |
2 |
unless $r->{'using'} = &parse_list([], $lx, \&SQL::Yapp::parse_table_as, ',') |
3574
|
0 |
4 |
unless $r->{'join'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_join) |
3576
|
3 |
1 |
if (&looking_at($lx, 'WHERE', 1)) |
3578
|
0 |
3 |
unless $r->{'where'} = &parse_where($lx) |
3580
|
0 |
4 |
if (&looking_at($lx, 'ORDER BY', 1)) |
3582
|
0 |
0 |
unless $r->{'order_by'} = &parse_list([], $lx, \&SQL::Yapp::parse_order, ',') |
3584
|
0 |
4 |
if (&looking_at($lx, 'LIMIT', 1)) |
3596
|
0 |
1 |
unless $keyword |
3598
|
0 |
1 |
if ref $keyword |
3627
|
1 |
0 |
unless $r |
3628
|
0 |
0 |
if $lx->{'error'} |
3637
|
1 |
2 |
if (&looking_at($lx, 'USING', 1)) |
3649
|
3 |
0 |
if (&looking_at($lx, 'CONSTRAINT', 1)) |
3651
|
0 |
3 |
unless $r->{'constraint'} = &parse_constraint($lx) |
3661
|
0 |
0 |
unless $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_index) and $r->{'index_option'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_index_option) |
3669
|
0 |
1 |
unless $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_index) and $r->{'index_option'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_index_option) |
3677
|
0 |
0 |
unless $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_index) and $r->{'index_option'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_index_option) |
3685
|
0 |
0 |
unless $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_index) and $r->{'index_option'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_index_option) |
3693
|
0 |
2 |
unless $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_name) and $r->{'reference'} = &parse_references($lx) |
3704
|
0 |
0 |
unless $r->{'column'} = &parse_list_delim($lx, \&SQL::Yapp::parse_column_index) |
3708
|
3 |
0 |
$read_dialect{'mysql'} ? : |
3711
|
0 |
3 |
if $lx->{'error'} |
3725
|
0 |
6 |
unless $r->{'value'} = &$parse($lx) |
3740
|
1 |
0 |
$read_dialect{'postgresql'} ? : |
3799
|
12 |
0 |
$read_dialect{'mysql'} ? : |
3800
|
4 |
8 |
unless $r |
3801
|
0 |
8 |
if $lx->{'error'} |
3812
|
0 |
6 |
unless $r->{'name'} = &parse_column_name($lx) and $r->{'column_spec'} = &parse_column_spec($lx) |
3835
|
0 |
2 |
unless &expect($lx, \@CREATE_TABLE_INITIAL) |
3841
|
1 |
1 |
if ($read_dialect{'mysql'} and &looking_at($lx, 'IF NOT EXISTS', 1)) |
3848
|
0 |
2 |
unless $r->{'table'} = &parse_table($lx) |
3852
|
2 |
0 |
if (&looking_at($lx, '(')) |
3854
|
0 |
2 |
unless my $spec = &parse_list_delim($lx, \&SQL::Yapp::parse_column_def_or_option) |
3861
|
0 |
2 |
unless $r->{'tableopt'} = &parse_try_list([], $lx, \&SQL::Yapp::parse_table_option) |
3863
|
1 |
1 |
if (&looking_at($lx, 'AS', 1) or &looking_at($lx, \@SELECT_INITIAL)) |
3867
|
0 |
1 |
unless $r->{'select'} = &parse_select($lx) |
3870
|
0 |
0 |
unless (scalar @{$r->{'column_def'};} or $r->{'select'}) |
3883
|
0 |
1 |
unless &expect($lx, \@DROP_TABLE_INITIAL) |
3889
|
1 |
0 |
if ($read_dialect{'mysql'} and &looking_at($lx, 'IF EXISTS', 1)) |
3896
|
0 |
1 |
unless $r->{'table'} = &parse_list([], $lx, \&SQL::Yapp::parse_table, ',') |
3925
|
0 |
20 |
unless &expect($lx, \@ALTER_TABLE_INITIAL) |
3933
|
0 |
20 |
unless $r->{'table'} = &parse_table($lx) |
3941
|
0 |
1 |
unless my $constraint = &parse_constraint($lx) |
3948
|
0 |
3 |
unless my $column = &parse_column_name($lx) |
3956
|
0 |
1 |
unless my $column = &parse_column_name($lx) and &expect($lx, 'TO', 1) and my $column2 = &parse_column_name($lx) |
3970
|
0 |
6 |
if $lx->{'error'} |
3989
|
0 |
2 |
if $lx->{'error'} |
3990
|
1 |
1 |
if (my $x = &looking_at($lx, 'USING', 1)) |
3995
|
6 |
0 |
$read_dialect{'postgresql'} ? : |
4007
|
1 |
1 |
if (&looking_at($lx, '(', 1)) { } |
4009
|
0 |
1 |
if $lx->{'error'} |
4014
|
0 |
1 |
unless my $col1 = &parse_column_name($lx) and my $spec = &parse_column_spec($lx) |
4030
|
0 |
1 |
unless my $col1 = &parse_column_name($lx) and my $spec = &parse_column_spec($lx) |
4037
|
0 |
1 |
unless my $col1 = &parse_column_name($lx) and my $col2 = &parse_column_name($lx) and my $spec = &parse_column_spec($lx) |
4045
|
0 |
1 |
unless my $constraint = &parse_constraint($lx) |
4051
|
0 |
1 |
unless my $index = &parse_index($lx) |
4055
|
20 |
0 |
$read_dialect{'mysql'} ? : |
4058
|
0 |
20 |
if $lx->{'error'} |
4070
|
0 |
3 |
if ($lx->{'token'}{'type'} eq 'num' or $lx->{'token'}{'type'} eq 'string') |
4077
|
0 |
3 |
unless ($lx->{'token'}{'type'}) |
4082
|
0 |
3 |
if ($lx->{'token'}{'perltype'} eq 'hash') |
4236
|
0 |
2834 |
unless defined $n |
4243
|
3792 |
3596 |
if ($s->{'need_comma'}) |
4252
|
4347 |
0 |
if ($perl ne '') |
4275
|
94 |
670 |
if ($opt{'joinfunc'}) { } |
|
254 |
416 |
elsif ($opt{'prefix'} eq '' and $opt{'suffix'} eq '' and $opt{'never_empty'} || defined $opt{'result0'} && $opt{'result0'} eq '') { } |
|
21 |
395 |
elsif ($opt{'sep'} eq '' and $opt{'never_empty'} || defined $opt{'result0'} && $opt{'result0'} eq $opt{'prefix'} . $opt{'suffix'}) { } |
4304
|
21 |
0 |
if ($opt{'prefix'} ne '') |
4346
|
277 |
246 |
if ($in_list) { } |
4359
|
277 |
246 |
if ($in_list) |
4381
|
18 |
1432 |
if (defined $end_str) |
4391
|
0 |
275 |
if $s->{'buff'} eq '' |
4407
|
354 |
0 |
if (scalar @$list) |
4417
|
2 |
352 |
defined $opt{'sep'} ? : |
4420
|
1 |
353 |
if (my $x = $opt{'map'}) |
4444
|
0 |
1056 |
if $allow and scalar grep({$token->{'kind'} eq $_;} &flatten($allow)) == 0 |
4456
|
515 |
0 |
if ($token->{'kind'} =~ /^interpol/) { } |
4471
|
9 |
34 |
if ($token->{'perltype'} eq 'hash') { } |
4496
|
3 |
858 |
if $token->{'perltype'} eq 'array' or $token->{'perltype'} eq 'hash' |
4504
|
358 |
116 |
if (not $in_list or $thing->{'token'}{'perltype'} eq 'scalar') { } |
|
19 |
97 |
elsif ($thing->{'token'}{'perltype'} eq 'hash') { } |
4511
|
16 |
3 |
if ($opt{'hash'}) { } |
|
3 |
0 |
elsif ($opt{'hashkeys'}) { } |
4539
|
90 |
75 |
if ($thing->{'type'} eq 'column') |
4581
|
470 |
39 |
if (not $in_list or scalar @non_scalar_i == 0) { } |
|
35 |
4 |
elsif (scalar @non_scalar_i == 1) { } |
4597
|
5 |
35 |
$token[$_]{'perltype'} eq 'scalar' ? : |
4611
|
0 |
8 |
$_->{'perltype'} eq 'scalar' ? : |
4616
|
0 |
8 |
$token[$_]{'perltype'} eq 'scalar' ? : |
4632
|
5 |
101 |
if (defined $limit_cnt or defined $limit_offset) |
4634
|
5 |
0 |
if ($limit_cnt) |
4639
|
3 |
2 |
if ($limit_offset) |
4650
|
0 |
18 |
if ($in_list) { } |
4666
|
3 |
0 |
if (my $x = $thing->{'constraint'}) |
4671
|
1 |
2 |
if (my $x = $thing->{'index_type'}) |
4678
|
2 |
1 |
if (my $x = $thing->{'reference'}) |
4711
|
16 |
2804 |
unless (defined $thing) |
4715
|
380 |
2424 |
unless (ref $thing) |
4719
|
1 |
2423 |
if (ref $thing eq 'ARRAY') |
4733
|
165 |
13 |
if (scalar @{$thing->{'expr_list'};} == 1) |
4734
|
149 |
16 |
unless (&is_multicol($thing->{'expr_list'}[0])) |
4749
|
94 |
82 |
if (my $x = $thing->{'from'}) |
4752
|
94 |
0 |
if (my $x = $thing->{'join'}) |
4753
|
4 |
90 |
if (@$x) |
4761
|
44 |
50 |
if (my $x = $thing->{'where'}) |
4766
|
6 |
87 |
if (my $x = $thing->{'group_by'}) |
4768
|
1 |
5 |
if ($thing->{'group_by_with_rollup'}) |
4777
|
1 |
92 |
if (my $x = $thing->{'having'}) |
4782
|
8 |
85 |
if (my $x = $thing->{'order_by'}) |
4810
|
2 |
2 |
if (my $x = $thing->{'using'}) |
4817
|
4 |
0 |
if (my $x = $thing->{'join'}) |
4818
|
2 |
2 |
if (@$x) |
4826
|
3 |
1 |
if (my $x = $thing->{'where'}) |
4831
|
0 |
4 |
if (my $x = $thing->{'order_by'}) |
4856
|
5 |
8 |
if (my $col = $thing->{'column'}) |
4860
|
5 |
8 |
if (my $val = $thing->{'value'}) { } |
|
8 |
0 |
elsif (my $set = $thing->{'set'}) { } |
|
0 |
0 |
elsif (my $sel = $thing->{'select'}) { } |
|
0 |
0 |
elsif ($thing->{'default_values'}) { } |
4882
|
1 |
12 |
if (my $x = $thing->{'duplicate_update'}) |
4900
|
1 |
8 |
if (my $x = $thing->{'from'}) |
4906
|
9 |
0 |
if (my $x = $thing->{'join'}) |
4907
|
0 |
9 |
if (@$x) |
4915
|
9 |
0 |
if (my $x = $thing->{'set'}) |
4921
|
9 |
0 |
if (my $x = $thing->{'where'}) |
4926
|
1 |
8 |
if (my $x = $thing->{'order_by'}) |
4942
|
1 |
1 |
if ($thing->{'if_not_exists'}) |
4963
|
1 |
1 |
if (my $x = $thing->{'select'}) |
4976
|
1 |
0 |
if ($thing->{'if_exists'}) |
4981
|
1 |
0 |
if (my $x = $thing->{'cascade'}) |
4992
|
0 |
20 |
if ($thing->{'only'}) |
5031
|
5 |
10 |
if ($thing->{'type'} eq 'interpol') { } |
5037
|
3 |
7 |
if ($thing->{'natural'}) { } |
5038
|
3 |
0 |
if ($thing->{'type'} eq 'INNER') { } |
5051
|
3 |
7 |
if (my $on = $thing->{'on'}) { } |
|
2 |
5 |
elsif (my $using = $thing->{'using'}) { } |
5078
|
3 |
119 |
if (my $x = $thing->{'as'}) { } |
5083
|
0 |
3 |
if ($write_dialect eq 'oracle') { } |
5099
|
4 |
220 |
if (my $x = $thing->{'as'}) { } |
5112
|
5 |
13 |
if ($thing->{'desc'}) { } |
5120
|
5 |
12 |
if ($thing->{'desc'}) { } |
5154
|
0 |
56 |
if $parens |
5185
|
0 |
22 |
if $parens |
5244
|
1 |
2 |
$thing->{'match'} ? : |
|
1 |
2 |
$thing->{'on_delete'} ? : |
|
0 |
3 |
$thing->{'on_update'} ? : |
5291
|
292 |
74 |
$thing->{'token'}{'type'} eq 'num' || $thing->{'token'}{'type'} eq 'string' || !$parens ? : |
|
9 |
366 |
$thing->{'maybe_check'} ? : |
5310
|
0 |
2 |
if $parens |
5312
|
0 |
2 |
unless scalar @{$thing->{'arg'};} == 1 |
5323
|
0 |
1 |
unless scalar @{$thing->{'arg'};} == 1 |
5325
|
0 |
1 |
if ($in_list) { } |
5340
|
4 |
85 |
if $parens |
5354
|
1 |
4 |
if $parens |
5362
|
2 |
2 |
if (scalar @{$thing->{'arg'};} == 3) |
5376
|
20 |
43 |
if ($thing->{'type'} eq 'prefix()') |
5380
|
0 |
63 |
unless my $fk = $functor_kind{$f->{'type'} or ''} |
5382
|
27 |
36 |
if ($in_list) { } |
5384
|
17 |
10 |
$parens ? : |
5393
|
8 |
28 |
$parens ? : |
5408
|
0 |
95 |
unless my $fk = $functor_kind{$f->{'type'} or ''} |
5413
|
11 |
84 |
$parens ? : |
5437
|
13 |
34 |
if $parens |
5441
|
22 |
12 |
if ($sw) { } |
5449
|
24 |
10 |
if (my $e = $thing->{'otherwise'}) { } |
5457
|
30 |
0 |
if (ref $wh eq 'ARRAY') { } |
5484
|
2 |
0 |
if (defined $thing->{'length'} or $thing->{'desc'}) { } |
5487
|
1 |
1 |
if (defined $thing->{'length'}) |
5492
|
1 |
1 |
if ($thing->{'desc'}) |
5537
|
280 |
279 |
if (scalar @_) |
5539
|
1 |
279 |
unless (defined $check_val) |
5545
|
2 |
557 |
if ($lx->{'error'}) |
5669
|
0 |
22 |
unless $func |
5670
|
0 |
22 |
if &looking_at($lx, '') |
5697
|
0 |
258 |
unless ($func) |
5711
|
0 |
258 |
unless defined $end and $start < $end |
5720
|
0 |
258 |
if $debug |
5731
|
0 |
258 |
if $line_cnt_new > $line_cnt_old |
5734
|
101 |
157 |
if (my $line_cnt_less = $line_cnt_old - $line_cnt_new) |
5821
|
159 |
731 |
if &blessed($x) and $x->isa('SQL::Yapp::Obj1') |
5935
|
0 |
0 |
unless $aref |
5954
|
0 |
0 |
unless $sth->execute |
5957
|
0 |
0 |
unless scalar @$a == 1 |
6139
|
9 |
9 |
if (ref $_[1] eq $_[0]) { } |
|
7 |
2 |
elsif (ref $_[1]) { } |
6188
|
14 |
0 |
if ($self->op eq '=') |
6207
|
7 |
0 |
if &blessed($x) and $x->isa('SQL::Yapp::Obj') |
6265
|
1 |
2 |
unless ($spec->{$o}) |
6277
|
0 |
13 |
unless $self->{'spec'}{$key} |
6319
|
18 |
20 |
unless $self->{'base'} |
6321
|
19 |
1 |
if ($self->{'spec'}{'prec1'} and defined $self->{'option'}{'prec1'}) |
6324
|
0 |
19 |
if ($self->{'spec'}{'prec2'} and defined $self->{'option'}{'prec2'}) { } |
6328
|
0 |
0 |
if ($self->{'spec'}{'prec_mul'} and $self->{'option'}{'prec_mul'}) |
6331
|
0 |
0 |
if ($self->{'spec'}{'prec_unit'} and $self->{'option'}{'prec_unit'}) |
6337
|
0 |
20 |
if (my $value_list = $self->{'spec'}{'value_list'} && $self->{'option'}{'value_list'}) |
6340
|
3 |
17 |
if (my $x = $self->{'spec'}{'charset'} && $self->{'option'}{'charset'}) |
6343
|
0 |
20 |
if (my $x = $self->{'spec'}{'collate'} && $self->{'option'}{'collate'}) |
6347
|
0 |
60 |
if (my $x = $self->{'spec'}{$key} && $self->{'option'}{$key}) |
6400
|
0 |
6 |
if (my $x = $self->{'name'}{$key}) |
6412
|
4 |
16 |
if (my $x = $self->{'option'}{$key}) |
6418
|
2 |
10 |
if (my $x = $self->{'option'}{$key}) |
6424
|
0 |
4 |
if (my $x = $self->{'option'}{$key}) |
6430
|
0 |
4 |
if (my $x = $self->{'option'}{$key}) |
6480
|
97 |
9 |
if (my $dialect = $functor->{'dialect'}) |
6481
|
28 |
69 |
if (my $f2 = &find_ref(\%$dialect, $write_dialect)) |
6499
|
6 |
0 |
defined $functor->{'result0'} ? : |
|
46 |
6 |
scalar @arg ? : |
6507
|
1 |
25 |
unless scalar @arg == 1 |
6513
|
0 |
7 |
unless scalar @arg == 1 |
6517
|
35 |
70 |
$parens ? : |
6535
|
1 |
218 |
unless (defined wantarray) |
6536
|
0 |
1 |
if scalar @_ == 0 |
6541
|
27 |
191 |
if wantarray |
6544
|
1 |
190 |
if scalar @_ > 1 |
6551
|
0 |
0 |
if scalar @_ == 0 |
6558
|
0 |
0 |
if scalar @_ == 1 |
6565
|
1 |
212 |
if (scalar @_ == 5) |
6566
|
1 |
0 |
if defined $_[1] |
6576
|
14 |
0 |
if (ref $x) { } |
6586
|
0 |
7 |
if scalar @_ == 0 |
6598
|
0 |
7 |
unless ref $x eq 'ARRAY' |
6600
|
0 |
7 |
unless scalar @$x >= 1 |
6611
|
7 |
0 |
if (ref $x) { } |
6624
|
0 |
11 |
unless my $spec = &find_ref(\%type_spec, $base) |
6626
|
0 |
11 |
unless $self |
6634
|
0 |
0 |
unless my $spec = &find_ref(\%type_spec, $base) |
6636
|
0 |
0 |
unless $self |
6647
|
0 |
11 |
if defined $prec2 |
6656
|
0 |
0 |
if defined $mul |
6657
|
0 |
0 |
if defined $unit |
6675
|
2 |
0 |
if (ref $x) { } |
6738
|
0 |
1 |
if (ref $x) { } |
|
1 |
0 |
elsif (defined $x) { } |
6753
|
122 |
0 |
if (defined $x) { } |
6765
|
1 |
1 |
if (ref $x) |
6766
|
0 |
1 |
if (ref $y) |
6767
|
0 |
1 |
unless defined $y |
6770
|
1 |
0 |
defined $x ? : |
6780
|
0 |
3 |
if (ref $x) |
6781
|
0 |
3 |
if (ref $y) |
6782
|
0 |
3 |
if (ref $z) |
6783
|
0 |
3 |
unless defined $z |
6786
|
3 |
0 |
defined $x ? : |
|
3 |
0 |
defined $y ? : |
6798
|
5 |
119 |
ref $x ? : |
6818
|
0 |
0 |
ref $x ? : |
6838
|
0 |
2 |
ref $x ? : |
6858
|
0 |
0 |
ref $x ? : |
6878
|
0 |
0 |
ref $x ? : |
6898
|
0 |
0 |
ref $x ? : |
6918
|
0 |
0 |
ref $x ? : |
6938
|
0 |
1 |
ref $x ? : |
6958
|
0 |
10 |
if (ref $x) { } |
|
10 |
0 |
elsif (defined $x) { } |
6972
|
4 |
205 |
if (ref $x) { } |
|
205 |
0 |
elsif (defined $x) { } |
6986
|
1 |
24 |
if (ref $x) { } |
|
24 |
0 |
elsif (defined $x) { } |
7061
|
3 |
0 |
if (ref $x) { } |
7082
|
5 |
65 |
if (ref $x) { } |
7083
|
0 |
5 |
if ref $x eq 'HASH' |
7084
|
0 |
5 |
if ref $x eq 'ARRAY' |
7085
|
0 |
5 |
if ref $x eq 'CODE' |
7086
|
0 |
5 |
if ref $x eq 'SCALAR' |
7097
|
21 |
132 |
if (ref $x) { } |
7098
|
0 |
21 |
unless &blessed($x) |
7112
|
3 |
2 |
if (ref $x) { } |
7126
|
3 |
3 |
&blessed($e) && $e->isa('SQL::Yapp::Check') ? : |
7140
|
0 |
7 |
&blessed($e) && $e->isa('SQL::Yapp::Check') ? : |
7154
|
4 |
5 |
if (ref $x) { } |
|
5 |
0 |
elsif (defined $x) { } |
7168
|
6 |
4 |
if (ref $x) { } |
|
4 |
0 |
elsif (defined $x) { } |
7185
|
2 |
0 |
if (ref $x) { } |
7199
|
4 |
0 |
if (ref $x) { } |
7213
|
0 |
14 |
if (ref $x) { } |
|
14 |
0 |
elsif (&looks_like_number($x)) { } |
7230
|
1 |
1 |
if (defined $cnt) { } |
7231
|
1 |
0 |
if (defined $offset) { } |
7239
|
1 |
0 |
if (defined $offset) { } |
7240
|
0 |
1 |
if ($write_dialect eq 'postgresql') { } |
7265
|
2 |
6 |
if (scalar @_ == 2) |
7282
|
0 |
0 |
if (scalar @_ == 1) |