| line |
true |
false |
branch |
|
526
|
0 |
68 |
if ($self->testStringDetect($text, '\\\\', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
533
|
0 |
68 |
if ($self->testRegExpr($text, q[\\\\\\'], 0, 0, 0, undef, 0, '#stay', 'String')) |
|
540
|
8 |
60 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, '#pop', 'Raw String')) |
|
552
|
0 |
0 |
if ($self->testStringDetect($text, '\\\\', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
559
|
0 |
0 |
if ($self->testRegExpr($text, '\\\\\\`', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
566
|
0 |
0 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, 'Short Subst', 'Substitution')) |
|
574
|
0 |
0 |
if ($self->testDetect2Chars($text, '#', '{', 0, 0, 0, undef, 0, 'Subst', 'Substitution')) |
|
580
|
0 |
0 |
if ($self->testHlCChar($text, 0, undef, 0, '#pop', 'Char')) |
|
587
|
0 |
0 |
if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, '#pop', 'Command')) |
|
599
|
0 |
608 |
if ($self->testRegExpr($text, '\\w\\:\\:\\s', 0, 0, 0, undef, 0, 'RDoc Label', 'Comment')) |
|
606
|
0 |
608 |
if ($self->testKeyword($text, 'attention', 0, undef, 0, '#stay', 'Alert')) |
|
625
|
0 |
0 |
if ($self->testStringDetect($text, '=end', 0, 0, 0, 0, 0, '#pop', 'Comment')) |
|
637
|
0 |
1388 |
if ($self->testKeyword($text, 'attention', 0, undef, 0, '#stay', 'Dec')) |
|
650
|
0 |
0 |
if ($self->testRegExpr($text, '(while|until)\\b(?!.*\\bdo\\b)', 0, 0, 0, undef, 1, '#stay', 'Keyword')) |
|
658
|
0 |
0 |
if ($self->testRegExpr($text, '(if|unless)\\b', 0, 0, 0, undef, 1, '#stay', 'Keyword')) |
|
663
|
0 |
0 |
if ($self->includeRules('Normal', $text)) |
|
675
|
6 |
0 |
if ($self->testRegExpr($text, '\\.?[_a-z]\\w*(\\?|\\!)?(?=[^\\w\\d\\.\\:])', 0, 0, 0, undef, 0, '#pop', 'Message')) |
|
682
|
0 |
0 |
if ($self->testRegExpr($text, '\\.?[_a-z]\\w*(\\?|\\!)?', 0, 0, 0, undef, 0, '#stay', 'Message')) |
|
689
|
0 |
0 |
if ($self->testRegExpr($text, '[A-Z]+_*(\\d|[a-z])\\w*(?=[^\\w\\d\\.\\:])', 0, 0, 0, undef, 0, '#pop', 'Constant')) |
|
696
|
0 |
0 |
if ($self->testRegExpr($text, '[A-Z]+_*([0-9]|[a-z])\\w*', 0, 0, 0, undef, 0, '#stay', 'Constant')) |
|
703
|
0 |
0 |
if ($self->testRegExpr($text, '[_A-Z][_A-Z0-9]*(?=[^\\w\\d\\.\\:])', 0, 0, 0, undef, 0, '#pop', 'Constant Value')) |
|
710
|
0 |
0 |
if ($self->testRegExpr($text, '[_A-Z][_A-Z0-9]*', 0, 0, 0, undef, 0, '#stay', 'Constant Value')) |
|
718
|
0 |
0 |
if ($self->testDetect2Chars($text, ':', ':', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
725
|
0 |
0 |
if ($self->testDetectChar($text, '.', 0, 0, 0, undef, 0, '#stay', 'Member')) |
|
732
|
0 |
0 |
if ($self->testAnyChar($text, '=+-*/%|&[]{}~', 0, 0, undef, 0, '#pop', 'Operator')) |
|
739
|
0 |
0 |
if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 0, '#pop', 'Comment')) |
|
746
|
0 |
0 |
if ($self->testAnyChar($text, '()\\', 0, 0, undef, 0, '#pop', 'Normal Text')) |
|
753
|
0 |
0 |
if ($self->testRegExpr($text, '\\W', 0, 0, 0, undef, 0, '#pop', 'Member')) |
|
764
|
0 |
2630 |
if ($self->testLineContinue($text, 0, undef, 0, 'Line Continue', 'Normal Text')) |
|
772
|
0 |
2630 |
if ($self->testRegExpr($text, '__END__$', 0, 0, 0, 0, 0, 'DATA', 'Keyword')) |
|
780
|
0 |
2630 |
if ($self->testRegExpr($text, '#!\\/.*', 0, 0, 0, 0, 0, '#stay', 'Keyword')) |
|
788
|
2 |
2628 |
if ($self->testRegExpr($text, '(\\=|\\(|\\[|\\{)\\s*(if|unless|while|until)\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
797
|
4 |
2624 |
if ($self->testRegExpr($text, '(while|until)\\b(?!.*\\bdo\\b)', 0, 0, 0, undef, 1, '#stay', 'Keyword')) |
|
805
|
0 |
2624 |
if ($self->testRegExpr($text, '\\;\\s*(while|until)\\b(?!.*\\bdo\\b)', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
814
|
8 |
2616 |
if ($self->testRegExpr($text, '(if|unless)\\b', 0, 0, 0, undef, 1, '#stay', 'Keyword')) |
|
822
|
0 |
2616 |
if ($self->testRegExpr($text, '\\;\\s*(if|unless)\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
830
|
2 |
2614 |
if ($self->testRegExpr($text, '\\bclass\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
838
|
2 |
2612 |
if ($self->testRegExpr($text, '\\bmodule\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
846
|
0 |
2612 |
if ($self->testRegExpr($text, '\\bbegin\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
854
|
2 |
2610 |
if ($self->testRegExpr($text, '\\bfor\\b(?!.*\\bdo\\b)', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
862
|
8 |
2602 |
if ($self->testRegExpr($text, '\\bcase\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
870
|
10 |
2592 |
if ($self->testRegExpr($text, '\\bdo\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
878
|
16 |
2576 |
if ($self->testRegExpr($text, '\\bdef\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
886
|
48 |
2528 |
if ($self->testRegExpr($text, '\\bend\\b', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
895
|
20 |
2508 |
if ($self->testRegExpr($text, '(\\b|^\\s*)(else|elsif|rescue|ensure)(\\s+|$)', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
902
|
2 |
2506 |
if ($self->testStringDetect($text, '...', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
910
|
4 |
2502 |
if ($self->testDetect2Chars($text, '.', '.', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
917
|
64 |
2438 |
if ($self->testRegExpr($text, '\\.[_a-z][_a-zA-Z0-9]*(\\?|\\!|\\b)', 0, 0, 0, undef, 0, '#stay', 'Message')) |
|
924
|
0 |
2438 |
if ($self->testRegExpr($text, '\\s\\?(\\\\M\\-)?(\\\\C\\-)?\\\\?\\S', 0, 0, 0, undef, 0, '#stay', 'Dec')) |
|
931
|
56 |
2382 |
if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword')) |
|
938
|
0 |
2382 |
if ($self->testKeyword($text, 'attribute-definitions', 0, undef, 0, '#stay', 'Attribute Definition')) |
|
945
|
2 |
2380 |
if ($self->testKeyword($text, 'access-control', 0, undef, 0, '#stay', 'Access Control')) |
|
952
|
0 |
2380 |
if ($self->testKeyword($text, 'definitions', 0, undef, 0, '#stay', 'Definition')) |
|
959
|
0 |
2380 |
if ($self->testKeyword($text, 'pseudo-variables', 0, undef, 0, '#stay', 'Pseudo variable')) |
|
966
|
2 |
2378 |
if ($self->testKeyword($text, 'default-globals', 0, undef, 0, '#stay', 'Default globals')) |
|
973
|
32 |
2346 |
if ($self->testKeyword($text, 'kernel-methods', 0, undef, 0, '#stay', 'Kernel methods')) |
|
980
|
12 |
2334 |
if ($self->testRegExpr($text, '\\$[a-zA-Z_0-9]+', 0, 0, 0, undef, 0, '#stay', 'Global Variable')) |
|
987
|
0 |
2334 |
if ($self->testRegExpr($text, '\\$\\-[a-zA-z_]\\b', 0, 0, 0, undef, 0, '#stay', 'Global Variable')) |
|
994
|
4 |
2330 |
if ($self->testRegExpr($text, q[\\$[\\d_*`\\!:?'/\\\\\\-\\&]], 0, 0, 0, undef, 0, '#stay', 'Default globals')) |
|
1001
|
8 |
2322 |
if ($self->testRegExpr($text, '\\b[_A-Z]+[A-Z_0-9]+\\b', 0, 0, 0, undef, 0, '#stay', 'Global Constant')) |
|
1008
|
24 |
2298 |
if ($self->testRegExpr($text, '\\b[A-Z]+_*([0-9]|[a-z])[_a-zA-Z0-9]*\\b', 0, 0, 0, undef, 0, '#stay', 'Constant')) |
|
1015
|
0 |
2298 |
if ($self->testRegExpr($text, '\\b\\-?0[xX][_0-9a-fA-F]+', 0, 0, 0, undef, 0, '#stay', 'Hex')) |
|
1022
|
0 |
2298 |
if ($self->testRegExpr($text, '\\b\\-?0[bB][_01]+', 0, 0, 0, undef, 0, '#stay', 'Bin')) |
|
1029
|
0 |
2298 |
if ($self->testRegExpr($text, '\\b\\-?0[1-7][_0-7]*', 0, 0, 0, undef, 0, '#stay', 'Octal')) |
|
1036
|
0 |
2298 |
if ($self->testRegExpr($text, '\\b\\-?[0-9][0-9_]*\\.[0-9][0-9_]*([eE]\\-?[1-9][0-9]*(\\.[0-9]*)?)?', 0, 0, 0, undef, 0, '#stay', 'Float')) |
|
1043
|
34 |
2264 |
if ($self->testRegExpr($text, '\\b\\-?[1-9][0-9_]*\\b', 0, 0, 0, undef, 0, '#stay', 'Dec')) |
|
1049
|
10 |
2254 |
if ($self->testInt($text, 0, undef, 0, '#stay', 'Dec')) |
|
1055
|
8 |
2246 |
if ($self->testHlCChar($text, 0, undef, 0, '#stay', 'Char')) |
|
1064
|
0 |
2246 |
if ($self->testStringDetect($text, '=begin', 0, 0, 0, 0, 0, 'Embedded documentation', 'Blockcomment')) |
|
1072
|
2 |
2244 |
if ($self->testRegExpr($text, q[\\s*<<-(?=\\w+|["'])], 0, 0, 0, undef, 0, 'find_indented_heredoc', 'Operator')) |
|
1080
|
0 |
2244 |
if ($self->testRegExpr($text, q[\\s*<<(?=\\w+|["'])], 0, 0, 0, undef, 0, 'find_heredoc', 'Operator')) |
|
1087
|
0 |
2244 |
if ($self->testDetectChar($text, '.', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1095
|
0 |
2244 |
if ($self->testDetect2Chars($text, '&', '&', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1103
|
0 |
2244 |
if ($self->testDetect2Chars($text, '|', '|', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1110
|
0 |
2244 |
if ($self->testRegExpr($text, '\\s[\\?\\:\\%/]\\s', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1117
|
64 |
2180 |
if ($self->testRegExpr($text, '[|&<>\\^\\+*~\\-=]+', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1124
|
0 |
2180 |
if ($self->testRegExpr($text, '\\s!', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1132
|
0 |
2180 |
if ($self->testRegExpr($text, '/=\\s', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1140
|
0 |
2180 |
if ($self->testStringDetect($text, '%=', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1148
|
6 |
2174 |
if ($self->testDetect2Chars($text, ':', ':', 0, 0, 0, undef, 0, 'Member Access', 'Operator')) |
|
1155
|
0 |
2174 |
if ($self->testRegExpr($text, ':[a-zA-Z_][a-zA-Z0-9_]*', 0, 0, 0, undef, 0, '#stay', 'Symbol')) |
|
1162
|
64 |
2110 |
if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, 'Quoted String', 'String')) |
|
1169
|
8 |
2102 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, 'Apostrophed String', 'Raw String')) |
|
1176
|
0 |
2102 |
if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, 'Command String', 'Command')) |
|
1183
|
0 |
2102 |
if ($self->testStringDetect($text, '?#', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1192
|
0 |
2102 |
if ($self->testRegExpr($text, '#\\s*BEGIN.*$', 0, 0, 0, 0, 0, '#stay', 'Comment')) |
|
1201
|
0 |
2102 |
if ($self->testRegExpr($text, '#\\s*END.*$', 0, 0, 0, 0, 0, '#stay', 'Comment')) |
|
1209
|
14 |
2088 |
if ($self->testRegExpr($text, '#', 0, 0, 0, undef, 1, 'Comment Line', 'Comment')) |
|
1216
|
60 |
2028 |
if ($self->testRegExpr($text, '\\s#', 0, 0, 0, undef, 0, 'General Comment', 'Comment')) |
|
1223
|
44 |
1984 |
if ($self->testRegExpr($text, '[\\[\\]]+', 0, 0, 0, undef, 0, '#stay', 'Delimiter')) |
|
1231
|
4 |
1980 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Delimiter')) |
|
1239
|
4 |
1976 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#stay', 'Delimiter')) |
|
1246
|
14 |
1962 |
if ($self->testRegExpr($text, '@[a-zA-Z_0-9]+', 0, 0, 0, undef, 0, '#stay', 'Instance Variable')) |
|
1253
|
0 |
1962 |
if ($self->testRegExpr($text, '@@[a-zA-Z_0-9]+', 0, 0, 0, undef, 0, '#stay', 'Class Variable')) |
|
1260
|
18 |
1944 |
if ($self->testDetectChar($text, '/', 0, 0, 0, undef, 0, 'RegEx 1', 'Regular Expression')) |
|
1268
|
4 |
1940 |
if ($self->testRegExpr($text, '\\s*[%](?=[Qqxw]?[^\\s])', 0, 0, 0, undef, 0, 'find_gdl_input', 'GDL input')) |
|
1280
|
0 |
614 |
if ($self->testStringDetect($text, '\\\\', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
1287
|
0 |
614 |
if ($self->testRegExpr($text, '\\\\\\"', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
1294
|
0 |
614 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, 'Short Subst', 'Substitution')) |
|
1302
|
4 |
610 |
if ($self->testDetect2Chars($text, '#', '{', 0, 0, 0, undef, 0, 'Subst', 'Substitution')) |
|
1309
|
64 |
546 |
if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
1326
|
2 |
232 |
if ($self->testRegExpr($text, '\\\\\\/', 0, 0, 0, undef, 0, '#stay', 'Regular Expression')) |
|
1333
|
0 |
232 |
if ($self->testRegExpr($text, '[^\\\\]$', 0, 0, 0, undef, 0, '#pop', 'Regular Expression')) |
|
1340
|
0 |
232 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, 'Short Subst', 'Substitution')) |
|
1348
|
2 |
230 |
if ($self->testDetect2Chars($text, '#', '{', 0, 0, 0, undef, 0, 'Subst', 'Substitution')) |
|
1355
|
18 |
212 |
if ($self->testRegExpr($text, '/[uiomxn]*', 0, 0, 0, undef, 0, '#pop', 'Regular Expression')) |
|
1367
|
0 |
0 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, '#stay', 'Substitution')) |
|
1374
|
0 |
0 |
if ($self->testRegExpr($text, '\\w(?!\\w)', 0, 0, 0, undef, 0, '#pop', 'Substitution')) |
|
1386
|
8 |
60 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Substitution')) |
|
1391
|
6 |
54 |
if ($self->includeRules('Normal', $text)) |
|
1406
|
0 |
0 |
if ($self->testRegExpr($text, '%1$', 0, 1, 0, undef, 1, '#pop#pop', 'Keyword')) |
|
1421
|
0 |
0 |
if ($self->testRegExpr($text, '%1$', 0, 1, 0, 0, 0, '#pop#pop', 'Keyword')) |
|
1434
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'Raw String')) |
|
1447
|
0 |
20 |
if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
1454
|
0 |
20 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, 'Short Subst', 'Substitution')) |
|
1462
|
0 |
20 |
if ($self->testDetect2Chars($text, '#', '{', 0, 0, 0, undef, 0, 'Subst', 'Substitution')) |
|
1474
|
0 |
4 |
if ($self->testRegExpr($text, 'w\\(', 0, 0, 0, undef, 0, 'gdl_token_array_1', 'GDL input')) |
|
1481
|
0 |
4 |
if ($self->testRegExpr($text, 'w\\{', 0, 0, 0, undef, 0, 'gdl_token_array_2', 'GDL input')) |
|
1488
|
2 |
2 |
if ($self->testRegExpr($text, 'w\\[', 0, 0, 0, undef, 0, 'gdl_token_array_3', 'GDL input')) |
|
1495
|
0 |
2 |
if ($self->testRegExpr($text, 'w<', 0, 0, 0, undef, 0, 'gdl_token_array_4', 'GDL input')) |
|
1502
|
0 |
2 |
if ($self->testRegExpr($text, 'w([^\\s\\w])', 0, 0, 0, undef, 0, 'gdl_token_array_5', 'GDL input')) |
|
1509
|
0 |
2 |
if ($self->testRegExpr($text, 'q\\(', 0, 0, 0, undef, 0, 'gdl_apostrophed_1', 'GDL input')) |
|
1516
|
0 |
2 |
if ($self->testRegExpr($text, 'q\\{', 0, 0, 0, undef, 0, 'gdl_apostrophed_2', 'GDL input')) |
|
1523
|
0 |
2 |
if ($self->testRegExpr($text, 'q\\[', 0, 0, 0, undef, 0, 'gdl_apostrophed_3', 'GDL input')) |
|
1530
|
0 |
2 |
if ($self->testRegExpr($text, 'q<', 0, 0, 0, undef, 0, 'gdl_apostrophed_4', 'GDL input')) |
|
1537
|
0 |
2 |
if ($self->testRegExpr($text, 'q([^\\s\\w])', 0, 0, 0, undef, 0, 'gdl_apostrophed_5', 'GDL input')) |
|
1544
|
0 |
2 |
if ($self->testRegExpr($text, 'x\\(', 0, 0, 0, undef, 0, 'gdl_shell_command_1', 'GDL input')) |
|
1551
|
0 |
2 |
if ($self->testRegExpr($text, 'x\\{', 0, 0, 0, undef, 0, 'gdl_shell_command_2', 'GDL input')) |
|
1558
|
0 |
2 |
if ($self->testRegExpr($text, 'x\\[', 0, 0, 0, undef, 0, 'gdl_shell_command_3', 'GDL input')) |
|
1565
|
0 |
2 |
if ($self->testRegExpr($text, 'x<', 0, 0, 0, undef, 0, 'gdl_shell_command_4', 'GDL input')) |
|
1572
|
0 |
2 |
if ($self->testRegExpr($text, 'x([^\\s\\w])', 0, 0, 0, undef, 0, 'gdl_shell_command_5', 'GDL input')) |
|
1579
|
0 |
2 |
if ($self->testRegExpr($text, 'r\\(', 0, 0, 0, undef, 0, 'gdl_regexpr_1', 'GDL input')) |
|
1586
|
0 |
2 |
if ($self->testRegExpr($text, 'r\\{', 0, 0, 0, undef, 0, 'gdl_regexpr_2', 'GDL input')) |
|
1593
|
0 |
2 |
if ($self->testRegExpr($text, 'r\\[', 0, 0, 0, undef, 0, 'gdl_regexpr_3', 'GDL input')) |
|
1600
|
0 |
2 |
if ($self->testRegExpr($text, 'r<', 0, 0, 0, undef, 0, 'gdl_regexpr_4', 'GDL input')) |
|
1607
|
0 |
2 |
if ($self->testRegExpr($text, 'r([^\\s\\w])', 0, 0, 0, undef, 0, 'gdl_regexpr_5', 'GDL input')) |
|
1614
|
0 |
2 |
if ($self->testRegExpr($text, 'Q?\\(', 0, 0, 0, undef, 0, 'gdl_dq_string_1', 'GDL input')) |
|
1621
|
0 |
2 |
if ($self->testRegExpr($text, 'Q?\\{', 0, 0, 0, undef, 0, 'gdl_dq_string_2', 'GDL input')) |
|
1628
|
0 |
2 |
if ($self->testRegExpr($text, 'Q?\\[', 0, 0, 0, undef, 0, 'gdl_dq_string_3', 'GDL input')) |
|
1635
|
0 |
2 |
if ($self->testRegExpr($text, 'Q?<', 0, 0, 0, undef, 0, 'gdl_dq_string_4', 'GDL input')) |
|
1642
|
2 |
0 |
if ($self->testRegExpr($text, 'Q?([^\\s\\w])', 0, 0, 0, undef, 0, 'gdl_dq_string_5', 'GDL input')) |
|
1654
|
0 |
0 |
if ($self->testRegExpr($text, q['(\\w+)'], 0, 0, 0, undef, 0, 'apostrophed_normal_heredoc', 'Keyword')) |
|
1661
|
0 |
0 |
if ($self->testRegExpr($text, '"?(\\w+)"?', 0, 0, 0, undef, 0, 'normal_heredoc', 'Keyword')) |
|
1673
|
0 |
2 |
if ($self->testRegExpr($text, q['(\\w+)'], 0, 0, 0, undef, 0, 'apostrophed_indented_heredoc', 'Keyword')) |
|
1680
|
2 |
0 |
if ($self->testRegExpr($text, '"?(\\w+)"?', 0, 0, 0, undef, 0, 'indented_heredoc', 'Keyword')) |
|
1690
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1698
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ')', 0, 0, 0, undef, 0, '#stay', 'Raw String')) |
|
1705
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_apostrophed_1_nested', 'Raw String')) |
|
1713
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
1723
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1730
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_apostrophed_1_nested', 'Raw String')) |
|
1737
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Raw String')) |
|
1747
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1755
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '}', 0, 0, 0, undef, 0, '#stay', 'Raw String')) |
|
1763
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
1770
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_apostrophed_2_nested', 'Raw String')) |
|
1780
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1787
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_apostrophed_2_nested', 'Raw String')) |
|
1794
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Raw String')) |
|
1804
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1812
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ']', 0, 0, 0, undef, 0, '#stay', 'Raw String')) |
|
1819
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_apostrophed_3_nested', 'Raw String')) |
|
1827
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
1837
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1844
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_apostrophed_3_nested', 'Raw String')) |
|
1851
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'Raw String')) |
|
1861
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1869
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '>', 0, 0, 0, undef, 0, '#stay', 'Raw String')) |
|
1876
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_apostrophed_4_nested', 'Raw String')) |
|
1884
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
1894
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1901
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_apostrophed_4_nested', 'Raw String')) |
|
1908
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop', 'Raw String')) |
|
1918
|
0 |
0 |
if ($self->includeRules('apostrophed_rules', $text)) |
|
1926
|
0 |
0 |
if ($self->testRegExpr($text, '\\\\%1', 0, 1, 0, undef, 0, '#stay', 'Raw String')) |
|
1935
|
0 |
0 |
if ($self->testRegExpr($text, '\\s*%1', 0, 1, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
1945
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
1953
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ')', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
1960
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_dq_string_1_nested', 'String')) |
|
1968
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
1978
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
1985
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_dq_string_1_nested', 'String')) |
|
1992
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2002
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
2010
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '}', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
2018
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2025
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_dq_string_2_nested', 'String')) |
|
2037
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_dq_string_2_nested', 'String')) |
|
2044
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2049
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
2059
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
2067
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ']', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
2074
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_dq_string_3_nested', 'String')) |
|
2082
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2094
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_dq_string_3_nested', 'String')) |
|
2101
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2106
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
2116
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
2124
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '>', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
2131
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_dq_string_4_nested', 'String')) |
|
2139
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2151
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_dq_string_4_nested', 'String')) |
|
2158
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2163
|
0 |
0 |
if ($self->includeRules('dq_string_rules', $text)) |
|
2173
|
0 |
20 |
if ($self->includeRules('dq_string_rules', $text)) |
|
2181
|
0 |
20 |
if ($self->testRegExpr($text, '\\\\%1', 0, 1, 0, undef, 0, '#stay', 'String')) |
|
2190
|
2 |
18 |
if ($self->testRegExpr($text, '\\s*%1', 0, 1, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2200
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2208
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ')', 0, 0, 0, undef, 0, '#stay', 'Regular Expression')) |
|
2215
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_regexpr_1_nested', 'Regular Expression')) |
|
2223
|
0 |
0 |
if ($self->testRegExpr($text, '\\)[uiomxn]*', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2233
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2240
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_regexpr_1_nested', 'Regular Expression')) |
|
2247
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Regular Expression')) |
|
2257
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2265
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '}', 0, 0, 0, undef, 0, '#stay', 'Regular Expression')) |
|
2273
|
0 |
0 |
if ($self->testRegExpr($text, '\\}[uiomxn]*', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2280
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_regexpr_2_nested', 'Regular Expression')) |
|
2290
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2297
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_regexpr_2_nested', 'Regular Expression')) |
|
2304
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Regular Expression')) |
|
2314
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2322
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ']', 0, 0, 0, undef, 0, '#stay', 'Regular Expression')) |
|
2329
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_regexpr_3_nested', 'Regular Expression')) |
|
2337
|
0 |
0 |
if ($self->testRegExpr($text, '\\][uiomxn]*', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2347
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2354
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_regexpr_3_nested', 'Regular Expression')) |
|
2361
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'Regular Expression')) |
|
2371
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2379
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '>', 0, 0, 0, undef, 0, '#stay', 'Regular Expression')) |
|
2386
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_regexpr_4_nested', 'Regular Expression')) |
|
2394
|
0 |
0 |
if ($self->testRegExpr($text, '>[uiomxn]*', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2404
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2411
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_regexpr_4_nested', 'Regular Expression')) |
|
2418
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop', 'Regular Expression')) |
|
2428
|
0 |
0 |
if ($self->includeRules('regexpr_rules', $text)) |
|
2436
|
0 |
0 |
if ($self->testRegExpr($text, '\\\\%1', 0, 1, 0, undef, 0, '#stay', 'Regular Expression')) |
|
2445
|
0 |
0 |
if ($self->testRegExpr($text, '\\s*%1[uiomxn]*', 0, 1, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2455
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2463
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ')', 0, 0, 0, undef, 0, '#stay', 'Command')) |
|
2470
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_shell_command_1_nested', 'Command')) |
|
2478
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2488
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2495
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_shell_command_1_nested', 'Command')) |
|
2502
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Command')) |
|
2512
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2520
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '}', 0, 0, 0, undef, 0, '#stay', 'Command')) |
|
2528
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2535
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_shell_command_2_nested', 'Command')) |
|
2545
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2552
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_shell_command_2_nested', 'Command')) |
|
2559
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Command')) |
|
2569
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2577
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ']', 0, 0, 0, undef, 0, '#stay', 'Command')) |
|
2584
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_shell_command_3_nested', 'Command')) |
|
2592
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2602
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2609
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_shell_command_3_nested', 'Command')) |
|
2616
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'Command')) |
|
2626
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2634
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '>', 0, 0, 0, undef, 0, '#stay', 'Command')) |
|
2641
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_shell_command_4_nested', 'Command')) |
|
2649
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2659
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2666
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_shell_command_4_nested', 'Command')) |
|
2673
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop', 'Command')) |
|
2683
|
0 |
0 |
if ($self->includeRules('shell_command_rules', $text)) |
|
2691
|
0 |
0 |
if ($self->testRegExpr($text, '\\\\%1', 0, 1, 0, undef, 0, '#stay', 'Command')) |
|
2700
|
0 |
0 |
if ($self->testRegExpr($text, '\\s*%1', 0, 1, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2710
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2718
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', ')', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
2725
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_token_array_1_nested', 'String')) |
|
2733
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2743
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2750
|
0 |
0 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'gdl_token_array_1_nested', 'String')) |
|
2757
|
0 |
0 |
if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2767
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2775
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '}', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
2783
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2790
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_token_array_2_nested', 'String')) |
|
2800
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2807
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'gdl_token_array_2_nested', 'String')) |
|
2814
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2824
|
0 |
126 |
if ($self->includeRules('token_array_rules', $text)) |
|
2832
|
0 |
126 |
if ($self->testDetect2Chars($text, '\\', ']', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
2839
|
0 |
126 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_token_array_3_nested', 'String')) |
|
2847
|
2 |
124 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2857
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2864
|
0 |
0 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'gdl_token_array_3_nested', 'String')) |
|
2871
|
0 |
0 |
if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2881
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2889
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '>', 0, 0, 0, undef, 0, '#stay', 'String')) |
|
2896
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_token_array_4_nested', 'String')) |
|
2904
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2914
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2921
|
0 |
0 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'gdl_token_array_4_nested', 'String')) |
|
2928
|
0 |
0 |
if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#pop', 'String')) |
|
2938
|
0 |
0 |
if ($self->includeRules('token_array_rules', $text)) |
|
2946
|
0 |
0 |
if ($self->testRegExpr($text, '\\\\%1', 0, 1, 0, undef, 0, '#stay', 'String')) |
|
2955
|
0 |
0 |
if ($self->testRegExpr($text, '\\s*%1', 0, 1, 0, undef, 0, '#pop#pop', 'GDL input')) |
|
2967
|
0 |
2992 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, 'Short Subst', 'Substitution')) |
|
2975
|
2 |
2990 |
if ($self->testDetect2Chars($text, '#', '{', 0, 0, 0, undef, 0, 'Subst', 'Substitution')) |
|
2990
|
0 |
2992 |
if ($self->testRegExpr($text, '%1$', 0, 1, 0, undef, 1, '#pop#pop', 'Keyword')) |
|
2995
|
2 |
2990 |
if ($self->includeRules('heredoc_rules', $text)) |
|
3010
|
0 |
0 |
if ($self->testRegExpr($text, '%1$', 0, 1, 0, 0, 0, '#pop#pop', 'Keyword')) |
|
3015
|
0 |
0 |
if ($self->includeRules('heredoc_rules', $text)) |
|
3028
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'Regular Expression')) |
|
3035
|
0 |
0 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, 'Short Subst', 'Substitution')) |
|
3043
|
0 |
0 |
if ($self->testDetect2Chars($text, '#', '{', 0, 0, 0, undef, 0, 'Subst', 'Substitution')) |
|
3056
|
0 |
0 |
if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'Command')) |
|
3063
|
0 |
0 |
if ($self->testRegExpr($text, '#@{1,2}', 0, 0, 0, undef, 0, 'Short Subst', 'Substitution')) |
|
3071
|
0 |
0 |
if ($self->testDetect2Chars($text, '#', '{', 0, 0, 0, undef, 0, 'Subst', 'Substitution')) |
|
3083
|
0 |
126 |
if ($self->testStringDetect($text, '\\\\', 0, 0, 0, undef, 0, '#stay', 'String')) |