| 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} |
|
456
|
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) { } |
|
1242
|
0 |
62 |
if $@ |
|
1256
|
0 |
170 |
if $@ |
|
1269
|
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'} |
|
1369
|
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 |
|
1494
|
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'}) { } |
|
1682
|
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, \&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, \&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'} |
|
2245
|
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, \&parse_type, ',', ')') |
|
2294
|
0 |
1 |
unless my $r = parse_type_list $lx and expect $lx, ')', 1 |
|
2323
|
0 |
3 |
unless $$r{'table'} = parse_table $lx and $$r{'column'} = parse_list_delim($lx, \&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'} |
|
2511
|
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, \&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) |
|
2704
|
1 |
182 |
if ($right_mark || '') eq 'string' and $$right{'value'} eq 'IN' |
|
2709
|
178 |
4 |
unless $left |
|
2713
|
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'}) |
|
2721
|
0 |
0 |
if $$left{'prec'} > $$right{'prec'} |
|
2724
|
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, get_rhs($right, 0), $right, 1) |
|
2822
|
0 |
64 |
unless my $argi = parse_thing($lx, get_rhs($right, $i++), $right, 1) |
|
2829
|
0 |
2 |
unless my $arg2 = parse_thing($lx, 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, get_rhs($right, 1), $right, 1) |
|
2842
|
0 |
2 |
unless my $arg2 = parse_thing($lx, get_rhs($right, 0), $right, 1) and expect $lx, $$right{'value2'}, 1 and my $arg3 = parse_thing($lx, 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, \&parse_when) |
|
2935
|
0 |
22 |
unless $$r{'switchval'} = parse_expr($lx) and $$r{'arg'} = parse_try_list([], $lx, \&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, \&parse_expr) |
|
3012
|
0 |
29 |
unless my $arg = parse_thing($lx, get_rhs($functor2, 0), $functor2, 0) |
|
3018
|
0 |
25 |
unless $$r{'arg'} = parse_list_delim($lx, \&parse_expr) |
|
3022
|
0 |
1 |
unless expect $lx, '(', 1 and my $arg1 = parse_column_name $lx and expect $lx, ')', 1 |
|
3029
|
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, \&parse_table_as, ',') |
|
3194
|
5 |
5 |
if ($want_condition) |
|
3203
|
0 |
2 |
unless $$r{'using'} = parse_list_delim($lx, \&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 |
|
3277
|
180 |
0 |
$read_dialect{'mysql'} ? : |
|
3285
|
180 |
0 |
$read_dialect{'mysql'} ? : |
|
3297
|
1 |
179 |
unless $$r{'expr_list'} = parse_list([], $lx, \&parse_expr_as, ',') |
|
3299
|
94 |
85 |
if (looking_at $lx, 'FROM', 1) |
|
3301
|
0 |
94 |
unless $$r{'from'} = parse_list([], $lx, \&parse_table_as, ',') and $$r{'join'} = parse_try_list([], $lx, \&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, \&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, \&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) |
|
3342
|
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 |
|
3390
|
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, \&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, \&parse_expr, ',') |
|
3471
|
0 |
9 |
unless expect $lx, 'UPDATE', 1 |
|
3477
|
9 |
0 |
$read_dialect{'mysql'} ? : |
|
|
9 |
0 |
$read_dialect{'postgresql'} ? : |
|
3494
|
0 |
9 |
unless $$r{'table'} = parse_list([], $lx, \&parse_table_as, ',') and expect $lx, 'SET', 1 and $$r{'set'} = parse_list([], $lx, \&parse_expr, ',') |
|
3498
|
1 |
8 |
if (looking_at $lx, 'FROM', 1) |
|
3500
|
0 |
1 |
unless $$r{'from'} = parse_list([], $lx, \&parse_table_as, ',') |
|
3503
|
0 |
9 |
unless $$r{'join'} = parse_try_list([], $lx, \&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, \&parse_order, ',') |
|
3513
|
1 |
8 |
if (looking_at $lx, 'LIMIT', 1) |
|
3538
|
0 |
4 |
unless expect $lx, 'DELETE', 1 |
|
3544
|
4 |
0 |
$read_dialect{'mysql'} ? : |
|
3555
|
0 |
4 |
unless expect $lx, 'FROM', 1 |
|
3558
|
4 |
0 |
$read_dialect{'postgresql'} ? : |
|
3566
|
0 |
4 |
unless $$r{'from'} = parse_list([], $lx, \&parse_table_as, ',') |
|
3568
|
2 |
2 |
if (looking_at $lx, 'USING', 1) |
|
3570
|
0 |
2 |
unless $$r{'using'} = parse_list([], $lx, \&parse_table_as, ',') |
|
3574
|
0 |
4 |
unless $$r{'join'} = parse_try_list([], $lx, \&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, \&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 |
|
3660
|
0 |
0 |
unless $$r{'column'} = parse_list_delim($lx, \&parse_column_index) and $$r{'index_option'} = parse_try_list([], $lx, \&parse_index_option) |
|
3668
|
0 |
1 |
unless $$r{'column'} = parse_list_delim($lx, \&parse_column_index) and $$r{'index_option'} = parse_try_list([], $lx, \&parse_index_option) |
|
3676
|
0 |
0 |
unless $$r{'column'} = parse_list_delim($lx, \&parse_column_index) and $$r{'index_option'} = parse_try_list([], $lx, \&parse_index_option) |
|
3684
|
0 |
0 |
unless $$r{'column'} = parse_list_delim($lx, \&parse_column_index) and $$r{'index_option'} = parse_try_list([], $lx, \&parse_index_option) |
|
3692
|
0 |
2 |
unless $$r{'column'} = parse_list_delim($lx, \&parse_column_name) and $$r{'reference'} = parse_references $lx |
|
3704
|
0 |
0 |
unless $$r{'column'} = parse_list_delim($lx, \&parse_column_index) |
|
3708
|
3 |
0 |
$read_dialect{'mysql'} ? : |
|
3711
|
0 |
3 |
if $$lx{'error'} |
|
3725
|
0 |
6 |
unless $$r{'value'} = &$parse($lx) |
|
3733
|
1 |
0 |
$read_dialect{'postgresql'} ? : |
|
3799
|
12 |
0 |
$read_dialect{'mysql'} ? : |
|
3800
|
4 |
8 |
unless $r |
|
3801
|
0 |
8 |
if $$lx{'error'} |
|
3811
|
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, \&parse_column_def_or_option) |
|
3861
|
0 |
2 |
unless $$r{'tableopt'} = parse_try_list([], $lx, \&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 |
2 |
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, \&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) |
|
4412
|
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') { } |
|
4494
|
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) { } |
|
4593
|
5 |
35 |
$token[$_]{'perltype'} eq 'scalar' ? : |
|
4611
|
0 |
8 |
$$_{'perltype'} eq 'scalar' ? : |
|
4612
|
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'}) { } |
|
5090
|
4 |
220 |
if (my $x = $$thing{'as'}) { } |
|
5103
|
5 |
13 |
if ($$thing{'desc'}) { } |
|
5111
|
5 |
12 |
if ($$thing{'desc'}) { } |
|
5145
|
0 |
56 |
if $parens |
|
5176
|
0 |
22 |
if $parens |
|
5224
|
1 |
2 |
$$thing{'match'} ? : |
|
|
1 |
2 |
$$thing{'on_delete'} ? : |
|
|
0 |
3 |
$$thing{'on_update'} ? : |
|
5279
|
292 |
74 |
$$thing{'token'}{'type'} eq 'num' || $$thing{'token'}{'type'} eq 'string' || !$parens ? : |
|
|
9 |
366 |
$$thing{'maybe_check'} ? : |
|
5301
|
0 |
2 |
if $parens |
|
5303
|
0 |
2 |
unless scalar @{$$thing{'arg'};} == 1 |
|
5314
|
0 |
1 |
unless scalar @{$$thing{'arg'};} == 1 |
|
5316
|
0 |
1 |
if ($in_list) { } |
|
5331
|
4 |
85 |
if $parens |
|
5345
|
1 |
4 |
if $parens |
|
5353
|
2 |
2 |
if (scalar @{$$thing{'arg'};} == 3) |
|
5367
|
20 |
43 |
if ($$thing{'type'} eq 'prefix()') |
|
5371
|
0 |
63 |
unless my $fk = $functor_kind{$$f{'type'} or ''} |
|
5373
|
27 |
36 |
if ($in_list) { } |
|
5375
|
17 |
10 |
$parens ? : |
|
5384
|
8 |
28 |
$parens ? : |
|
5399
|
0 |
95 |
unless my $fk = $functor_kind{$$f{'type'} or ''} |
|
5404
|
11 |
84 |
$parens ? : |
|
5428
|
13 |
34 |
if $parens |
|
5432
|
22 |
12 |
if ($sw) { } |
|
5440
|
24 |
10 |
if (my $e = $$thing{'otherwise'}) { } |
|
5448
|
30 |
0 |
if (ref $wh eq 'ARRAY') { } |
|
5475
|
2 |
0 |
if (defined $$thing{'length'} or $$thing{'desc'}) { } |
|
5478
|
1 |
1 |
if (defined $$thing{'length'}) |
|
5483
|
1 |
1 |
if ($$thing{'desc'}) |
|
5528
|
280 |
279 |
if (scalar @_) |
|
5530
|
1 |
279 |
unless (defined $check_val) |
|
5536
|
2 |
557 |
if ($$lx{'error'}) |
|
5660
|
0 |
22 |
unless $func |
|
5661
|
0 |
22 |
if looking_at $lx, '' |
|
5688
|
0 |
258 |
unless ($func) |
|
5702
|
0 |
258 |
unless defined $end and $start < $end |
|
5711
|
0 |
258 |
if $debug |
|
5722
|
0 |
258 |
if $line_cnt_new > $line_cnt_old |
|
5725
|
101 |
157 |
if (my $line_cnt_less = $line_cnt_old - $line_cnt_new) |
|
5812
|
159 |
731 |
if blessed $x and $x->isa('SQL::Yapp::Obj1') |
|
5926
|
0 |
0 |
unless $aref |
|
5945
|
0 |
0 |
unless $sth->execute |
|
5948
|
0 |
0 |
unless scalar @$a == 1 |
|
6130
|
9 |
9 |
if (ref $_[1] eq $_[0]) { } |
|
|
7 |
2 |
elsif (ref $_[1]) { } |
|
6179
|
14 |
0 |
if ($self->op eq '=') |
|
6198
|
7 |
0 |
if blessed $x and $x->isa('SQL::Yapp::Obj') |
|
6256
|
1 |
2 |
unless ($$spec{$o}) |
|
6268
|
0 |
13 |
unless $$self{'spec'}{$key} |
|
6310
|
18 |
20 |
unless $$self{'base'} |
|
6312
|
19 |
1 |
if ($$self{'spec'}{'prec1'} and defined $$self{'option'}{'prec1'}) |
|
6315
|
0 |
19 |
if ($$self{'spec'}{'prec2'} and defined $$self{'option'}{'prec2'}) { } |
|
6319
|
0 |
19 |
if ($$self{'spec'}{'prec_mul'} and $$self{'option'}{'prec_mul'}) |
|
6322
|
0 |
19 |
if ($$self{'spec'}{'prec_unit'} and $$self{'option'}{'prec_unit'}) |
|
6328
|
0 |
20 |
if (my $value_list = $$self{'spec'}{'value_list'} && $$self{'option'}{'value_list'}) |
|
6331
|
3 |
17 |
if (my $x = $$self{'spec'}{'charset'} && $$self{'option'}{'charset'}) |
|
6334
|
0 |
20 |
if (my $x = $$self{'spec'}{'collate'} && $$self{'option'}{'collate'}) |
|
6338
|
0 |
60 |
if (my $x = $$self{'spec'}{$key} && $$self{'option'}{$key}) |
|
6391
|
0 |
6 |
if (my $x = $$self{'name'}{$key}) |
|
6403
|
4 |
16 |
if (my $x = $$self{'option'}{$key}) |
|
6409
|
2 |
10 |
if (my $x = $$self{'option'}{$key}) |
|
6415
|
0 |
4 |
if (my $x = $$self{'option'}{$key}) |
|
6421
|
0 |
4 |
if (my $x = $$self{'option'}{$key}) |
|
6471
|
97 |
9 |
if (my $dialect = $$functor{'dialect'}) |
|
6472
|
28 |
69 |
if (my $f2 = find_ref(%$dialect, $write_dialect)) |
|
6486
|
6 |
0 |
defined $$functor{'result0'} ? : |
|
|
46 |
6 |
scalar @arg ? : |
|
6498
|
1 |
25 |
unless scalar @arg == 1 |
|
6504
|
0 |
7 |
unless scalar @arg == 1 |
|
6508
|
35 |
70 |
$parens ? : |
|
6526
|
1 |
218 |
unless (defined wantarray) |
|
6527
|
0 |
1 |
if scalar @_ == 0 |
|
6532
|
27 |
191 |
if wantarray |
|
6535
|
1 |
190 |
if scalar @_ > 1 |
|
6542
|
0 |
0 |
if scalar @_ == 0 |
|
6549
|
0 |
0 |
if scalar @_ == 1 |
|
6556
|
1 |
212 |
if (scalar @_ == 5) |
|
6557
|
1 |
0 |
if defined $_[1] |
|
6567
|
14 |
0 |
if (ref $x) { } |
|
6577
|
0 |
7 |
if scalar @_ == 0 |
|
6589
|
0 |
7 |
unless ref $x eq 'ARRAY' |
|
6591
|
0 |
7 |
unless scalar @$x >= 1 |
|
6602
|
7 |
0 |
if (ref $x) { } |
|
6615
|
0 |
11 |
unless my $spec = find_ref(%type_spec, $base) |
|
6617
|
0 |
11 |
unless $self |
|
6625
|
0 |
0 |
unless my $spec = find_ref(%type_spec, $base) |
|
6627
|
0 |
0 |
unless $self |
|
6638
|
0 |
11 |
if defined $prec2 |
|
6647
|
0 |
0 |
if defined $mul |
|
6648
|
0 |
0 |
if defined $unit |
|
6666
|
2 |
0 |
if (ref $x) { } |
|
6729
|
0 |
1 |
if (ref $x) { } |
|
|
1 |
0 |
elsif (defined $x) { } |
|
6744
|
122 |
0 |
if (defined $x) { } |
|
6756
|
1 |
1 |
if (ref $x) |
|
6757
|
0 |
1 |
if (ref $y) |
|
6758
|
0 |
1 |
unless defined $y |
|
6761
|
1 |
0 |
defined $x ? : |
|
6771
|
0 |
3 |
if (ref $x) |
|
6772
|
0 |
3 |
if (ref $y) |
|
6773
|
0 |
3 |
if (ref $z) |
|
6774
|
0 |
3 |
unless defined $z |
|
6777
|
3 |
0 |
defined $x ? : |
|
|
3 |
0 |
defined $y ? : |
|
6789
|
5 |
119 |
ref $x ? : |
|
6809
|
0 |
0 |
ref $x ? : |
|
6829
|
0 |
2 |
ref $x ? : |
|
6849
|
0 |
0 |
ref $x ? : |
|
6869
|
0 |
0 |
ref $x ? : |
|
6889
|
0 |
0 |
ref $x ? : |
|
6909
|
0 |
0 |
ref $x ? : |
|
6929
|
0 |
1 |
ref $x ? : |
|
6949
|
0 |
10 |
if (ref $x) { } |
|
|
10 |
0 |
elsif (defined $x) { } |
|
6963
|
4 |
205 |
if (ref $x) { } |
|
|
205 |
0 |
elsif (defined $x) { } |
|
6977
|
1 |
24 |
if (ref $x) { } |
|
|
24 |
0 |
elsif (defined $x) { } |
|
7052
|
3 |
0 |
if (ref $x) { } |
|
7073
|
5 |
65 |
if (ref $x) { } |
|
7074
|
0 |
5 |
if ref $x eq 'HASH' |
|
7075
|
0 |
5 |
if ref $x eq 'ARRAY' |
|
7076
|
0 |
5 |
if ref $x eq 'CODE' |
|
7077
|
0 |
5 |
if ref $x eq 'SCALAR' |
|
7088
|
21 |
132 |
if (ref $x) { } |
|
7089
|
0 |
21 |
unless blessed $x |
|
7103
|
3 |
2 |
if (ref $x) { } |
|
7117
|
3 |
3 |
blessed $e && $e->isa('SQL::Yapp::Check') ? : |
|
7131
|
0 |
7 |
blessed $e && $e->isa('SQL::Yapp::Check') ? : |
|
7145
|
4 |
5 |
if (ref $x) { } |
|
|
5 |
0 |
elsif (defined $x) { } |
|
7159
|
6 |
4 |
if (ref $x) { } |
|
|
4 |
0 |
elsif (defined $x) { } |
|
7176
|
2 |
0 |
if (ref $x) { } |
|
7190
|
4 |
0 |
if (ref $x) { } |
|
7204
|
0 |
14 |
if (ref $x) { } |
|
|
14 |
0 |
elsif (looks_like_number $x) { } |
|
7221
|
1 |
1 |
if (defined $cnt) { } |
|
7222
|
1 |
0 |
if (defined $offset) { } |
|
7230
|
1 |
0 |
if (defined $offset) { } |
|
7231
|
0 |
1 |
if ($write_dialect eq 'postgresql') { } |
|
7256
|
2 |
6 |
if (scalar @_ == 2) |
|
7273
|
0 |
0 |
if (scalar @_ == 1) |