| line |
true |
false |
branch |
|
634
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
641
|
0 |
0 |
if ($self->testDetectChar($text, "`", 0, 0, 0, undef, 0, "#pop", "Operator")) |
|
650
|
617 |
1135 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
655
|
2 |
1133 |
if ($self->includePlugin("Alerts", $text)) |
|
659
|
515 |
618 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
673
|
0 |
0 |
if ($self->testRegExpr($text, "\\=(?:head[1-6]|over|back|item|for|begin|end|pod)\\s+.*", 0, 0, 0, 0, 0, "pod", "Pod")) |
|
681
|
0 |
0 |
if ($self->testStringDetect($text, "__END__", 0, 0, 0, undef, 1, "normal", "Keyword")) |
|
693
|
0 |
0 |
if ($self->testRegExpr($text, "^\\=(?:head[1-6]|over|back|item|for|begin|end|pod)\\s*.*", 0, 0, 0, undef, 0, "pod", "Pod")) |
|
701
|
0 |
0 |
if ($self->testStringDetect($text, "__DATA__", 0, 0, 0, undef, 1, "data_handle", "Keyword")) |
|
713
|
2 |
1 |
if ($self->testRegExpr($text, "(\\w+)\\s*;?", 0, 0, 0, undef, 0, "here_document", "Keyword")) |
|
720
|
0 |
1 |
if ($self->testRegExpr($text, "\\s*\"([^\"]+)\"\\s*;?", 0, 0, 0, undef, 0, "here_document", "Keyword")) |
|
727
|
0 |
1 |
if ($self->testRegExpr($text, "\\s*`([^`]+)`\\s*;?", 0, 0, 0, undef, 0, "here_document", "Keyword")) |
|
734
|
1 |
0 |
if ($self->testRegExpr($text, "\\s*'([^']+)'\\s*;?", 0, 0, 0, undef, 0, "here_document_dumb", "Keyword")) |
|
746
|
0 |
5 |
if ($self->testRegExpr($text, "\\s+#.*", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
754
|
0 |
5 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "pattern_brace", "Operator")) |
|
762
|
0 |
5 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "pattern_paren", "Operator")) |
|
770
|
0 |
5 |
if ($self->testDetectChar($text, "[", 0, 0, 0, undef, 0, "pattern_bracket", "Operator")) |
|
778
|
0 |
5 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "pattern_sq", "Operator")) |
|
786
|
5 |
0 |
if ($self->testRegExpr($text, "([^\\w\\s])", 0, 0, 0, undef, 0, "pattern", "Operator")) |
|
799
|
0 |
20 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "ip_string_2", "Operator")) |
|
807
|
16 |
4 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "ip_string_3", "Operator")) |
|
815
|
0 |
4 |
if ($self->testDetectChar($text, "[", 0, 0, 0, undef, 0, "ip_string_4", "Operator")) |
|
823
|
0 |
4 |
if ($self->testDetectChar($text, "<", 0, 0, 0, undef, 0, "ip_string_5", "Operator")) |
|
831
|
4 |
0 |
if ($self->testRegExpr($text, "([^a-zA-Z0-9_\\s[\\]{}()])", 0, 0, 0, undef, 0, "ip_string_6", "Operator")) |
|
838
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+#.*", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
851
|
0 |
25 |
if ($self->testRegExpr($text, "x\\s*(')", 0, 0, 0, undef, 0, "string_6", "Operator")) |
|
858
|
20 |
5 |
if ($self->testAnyChar($text, "qx", 0, 0, undef, 0, "find_qqx", "Operator")) |
|
865
|
3 |
2 |
if ($self->testDetectChar($text, "w", 0, 0, 0, undef, 0, "find_qw", "Operator")) |
|
873
|
0 |
2 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "string_2", "Operator")) |
|
881
|
0 |
2 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "string_3", "Operator")) |
|
889
|
0 |
2 |
if ($self->testDetectChar($text, "[", 0, 0, 0, undef, 0, "string_4", "Operator")) |
|
897
|
0 |
2 |
if ($self->testDetectChar($text, "<", 0, 0, 0, undef, 0, "string_5", "Operator")) |
|
905
|
2 |
0 |
if ($self->testRegExpr($text, "([^a-zA-Z0-9_\\s[\\]{}()])", 0, 0, 0, undef, 0, "string_6", "Operator")) |
|
912
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+#.*", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
925
|
3 |
0 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "quote_word_paren", "Operator")) |
|
933
|
0 |
0 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "quote_word_brace", "Operator")) |
|
941
|
0 |
0 |
if ($self->testDetectChar($text, "[", 0, 0, 0, undef, 0, "quote_word_bracket", "Operator")) |
|
949
|
0 |
0 |
if ($self->testRegExpr($text, "([^a-zA-Z0-9_\\s[\\]{}()])", 0, 0, 0, undef, 0, "quote_word", "Operator")) |
|
956
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+#.*", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
968
|
0 |
26 |
if ($self->testRegExpr($text, "\\s+#.*", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
976
|
0 |
26 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "subst_curlybrace_pattern", "Operator")) |
|
984
|
0 |
26 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "subst_paren_pattern", "Operator")) |
|
992
|
0 |
26 |
if ($self->testDetectChar($text, "[", 0, 0, 0, undef, 0, "subst_bracket_pattern", "Operator")) |
|
1000
|
0 |
26 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "subst_sq_pattern", "Operator")) |
|
1008
|
26 |
0 |
if ($self->testRegExpr($text, "([^\\w\\s[\\]{}()])", 0, 0, 0, undef, 0, "subst_slash_pattern", "Operator")) |
|
1020
|
21 |
1093 |
if ($self->testRegExpr($text, "\\\$[0-9]+", 0, 0, 0, undef, 0, "var_detect", "Special Variable")) |
|
1027
|
2 |
1091 |
if ($self->testRegExpr($text, "[\@\\\$](?:[\\+\\-_]\\B|ARGV\\b|INC\\b)", 0, 0, 0, undef, 0, "var_detect", "Special Variable")) |
|
1034
|
0 |
1091 |
if ($self->testRegExpr($text, "[%\\\$](?:INC\\b|ENV\\b|SIG\\b)", 0, 0, 0, undef, 0, "var_detect", "Special Variable")) |
|
1041
|
24 |
1067 |
if ($self->testRegExpr($text, "\\\$\\\$[\\\$\\w_]", 0, 0, 0, undef, 0, "var_detect", "Data Type")) |
|
1048
|
0 |
1067 |
if ($self->testRegExpr($text, "\\\$[#_][\\w_]", 0, 0, 0, undef, 0, "var_detect", "Data Type")) |
|
1055
|
0 |
1067 |
if ($self->testRegExpr($text, "\\\$+::", 0, 0, 0, undef, 0, "var_detect", "Data Type")) |
|
1062
|
12 |
1055 |
if ($self->testRegExpr($text, "\\\$[^a-zA-Z0-9\\s{][A-Z]?", 0, 0, 0, undef, 0, "#stay", "Special Variable")) |
|
1069
|
0 |
1055 |
if ($self->testRegExpr($text, "[\\\$\@%]\\{[\\w_]+\\}", 0, 0, 0, undef, 0, "var_detect", "Data Type")) |
|
1076
|
1039 |
16 |
if ($self->testAnyChar($text, "\$\@%", 0, 0, undef, 0, "var_detect", "Data Type")) |
|
1083
|
0 |
16 |
if ($self->testRegExpr($text, "\\*[a-zA-Z_]+", 0, 0, 0, undef, 0, "var_detect", "Data Type")) |
|
1090
|
0 |
16 |
if ($self->testRegExpr($text, "\\*[^a-zA-Z0-9\\s{][A-Z]?", 0, 0, 0, undef, 0, "#stay", "Special Variable")) |
|
1097
|
2 |
14 |
if ($self->testAnyChar($text, "\$\@%*", 0, 0, undef, 0, "#pop", "Operator")) |
|
1109
|
2 |
34 |
if ($self->testRegExpr($text, "\\\$[0-9]+", 0, 0, 0, undef, 0, "var_detect_unsafe", "Special Variable")) |
|
1116
|
0 |
34 |
if ($self->testRegExpr($text, "[\@\\\$](?:[\\+\\-_]\\B|ARGV\\b|INC\\b)", 0, 0, 0, undef, 0, "var_detect_unsafe", "Special Variable")) |
|
1123
|
0 |
34 |
if ($self->testRegExpr($text, "[%\\\$](?:INC\\b|ENV\\b|SIG\\b)", 0, 0, 0, undef, 0, "var_detect_unsafe", "Special Variable")) |
|
1130
|
0 |
34 |
if ($self->testRegExpr($text, "\\\$\\\$[\\\$\\w_]", 0, 0, 0, undef, 0, "var_detect_unsafe", "Data Type")) |
|
1137
|
0 |
34 |
if ($self->testRegExpr($text, "\\\$[#_][\\w_]", 0, 0, 0, undef, 0, "var_detect_unsafe", "Data Type")) |
|
1144
|
0 |
34 |
if ($self->testRegExpr($text, "\\\$+::", 0, 0, 0, undef, 0, "var_detect_unsafe", "Data Type")) |
|
1151
|
1 |
33 |
if ($self->testRegExpr($text, "\\\$[^a-zA-Z0-9\\s{][A-Z]?", 0, 0, 0, undef, 0, "#stay", "Special Variable")) |
|
1158
|
2 |
31 |
if ($self->testRegExpr($text, "[\\\$\@%]\\{[\\w_]+\\}", 0, 0, 0, undef, 0, "var_detect_unsafe", "Data Type")) |
|
1165
|
30 |
1 |
if ($self->testRegExpr($text, "[\\\$\@%]", 0, 0, 0, undef, 0, "var_detect_unsafe", "Data Type")) |
|
1172
|
0 |
1 |
if ($self->testRegExpr($text, "\\*\\w+", 0, 0, 0, undef, 0, "var_detect_unsafe", "Data Type")) |
|
1179
|
0 |
1 |
if ($self->testAnyChar($text, "\$\@%*", 0, 0, undef, 0, "#pop", "Operator")) |
|
1188
|
14 |
20 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
1198
|
2 |
18 |
if ($self->testRegExpr($text, "%1", 0, 1, 0, 0, 0, "#pop#pop", "Keyword")) |
|
1206
|
0 |
18 |
if ($self->testRegExpr($text, "\\=\\s*<<\\s*[\"']?([A-Z0-9_\\-]+)[\"']?", 0, 0, 0, undef, 0, "here_document", "Keyword")) |
|
1211
|
16 |
2 |
if ($self->includeRules("ipstring_internal", $text)) |
|
1220
|
2 |
4 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
1230
|
1 |
3 |
if ($self->testRegExpr($text, "%1", 0, 1, 0, 0, 0, "#pop#pop", "Keyword")) |
|
1234
|
3 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
1247
|
38 |
242 |
if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "#pop", "Operator")) |
|
1252
|
125 |
117 |
if ($self->includeRules("ipstring_internal", $text)) |
|
1265
|
0 |
0 |
if ($self->testRangeDetect($text, "(", ")", 0, 0, undef, 0, "#stay", "String (interpolated)")) |
|
1273
|
0 |
0 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
1278
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
1291
|
6 |
88 |
if ($self->testRangeDetect($text, "\\{", "}", 0, 0, undef, 0, "#stay", "String (interpolated)")) |
|
1299
|
16 |
72 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
1304
|
34 |
38 |
if ($self->includeRules("ipstring_internal", $text)) |
|
1317
|
0 |
0 |
if ($self->testRangeDetect($text, "[", "]", 0, 0, undef, 0, "#stay", "String (interpolated)")) |
|
1325
|
0 |
0 |
if ($self->testDetectChar($text, "]", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
1330
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
1343
|
0 |
0 |
if ($self->testRangeDetect($text, "<", ">", 0, 0, undef, 0, "#stay", "String (interpolated)")) |
|
1351
|
0 |
0 |
if ($self->testDetectChar($text, ">", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
1356
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
1369
|
0 |
34 |
if ($self->testRegExpr($text, "\\\\%1", 0, 1, 0, undef, 0, "#stay", "String (interpolated)")) |
|
1378
|
4 |
30 |
if ($self->testDetectChar($text, 1, 0, 1, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
1383
|
14 |
16 |
if ($self->includeRules("ipstring_internal", $text)) |
|
1392
|
151 |
255 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
1399
|
9 |
246 |
if ($self->testRegExpr($text, "\\\\[UuLlEtnaefr]", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
1406
|
11 |
235 |
if ($self->testRegExpr($text, "\\\\.", 0, 0, 0, undef, 0, "#stay", "String (interpolated)")) |
|
1414
|
30 |
205 |
if ($self->testRegExpr($text, "(?:[\\\$\@]\\S|%[\\w{])", 0, 0, 1, undef, 0, "find_variable_unsafe", "Normal Text")) |
|
1426
|
2 |
13421 |
if ($self->testRegExpr($text, "^#!\\/.*", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
1434
|
0 |
13421 |
if ($self->testStringDetect($text, "__DATA__", 0, 0, 0, undef, 1, "data_handle", "Keyword")) |
|
1442
|
2 |
13419 |
if ($self->testStringDetect($text, "__END__", 0, 0, 0, undef, 1, "#stay", "Keyword")) |
|
1449
|
83 |
13336 |
if ($self->testRegExpr($text, "\\bsub\\s+", 0, 0, 0, undef, 0, "sub_name_def", "Keyword")) |
|
1456
|
569 |
12767 |
if ($self->testKeyword($text, "keywords", 0, undef, 0, "#stay", "Keyword")) |
|
1463
|
51 |
12716 |
if ($self->testKeyword($text, "operators", 0, undef, 0, "#stay", "Operator")) |
|
1470
|
237 |
12479 |
if ($self->testKeyword($text, "functions", 0, undef, 0, "#stay", "Function")) |
|
1477
|
14 |
12465 |
if ($self->testKeyword($text, "pragmas", 0, undef, 0, "#stay", "Pragma")) |
|
1486
|
3 |
12462 |
if ($self->testRegExpr($text, "\\=(?:head[1-6]|over|back|item|for|begin|end|pod)(\\s|\$)", 0, 0, 0, 0, 0, "pod", "Pod")) |
|
1490
|
4620 |
7842 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
1497
|
109 |
7733 |
if ($self->testDetectChar($text, "#", 0, 0, 0, undef, 0, "comment", "Comment")) |
|
1503
|
0 |
7733 |
if ($self->testHlCOct($text, 0, undef, 0, "slash_safe_escape", "Octal")) |
|
1509
|
0 |
7733 |
if ($self->testHlCHex($text, 0, undef, 0, "slash_safe_escape", "Hex")) |
|
1515
|
90 |
7643 |
if ($self->testFloat($text, 0, undef, 0, "slash_safe_escape", "Float")) |
|
1521
|
2 |
7641 |
if ($self->testInt($text, 0, undef, 0, "slash_safe_escape", "Decimal")) |
|
1528
|
0 |
7641 |
if ($self->testRegExpr($text, "\\\\([\"'])[^\\1]", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1536
|
0 |
7641 |
if ($self->testDetect2Chars($text, "&", "'", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1544
|
38 |
7603 |
if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "ip_string", "Operator")) |
|
1552
|
1103 |
6500 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "string", "Operator")) |
|
1559
|
0 |
6500 |
if ($self->testDetectChar($text, "`", 0, 0, 0, undef, 0, "Backticked", "Operator")) |
|
1567
|
1100 |
5400 |
if ($self->testRegExpr($text, "(?:[\$\@]\\S|%[\\w{]|\\*[^\\d\\*{\\\$\@%=(])", 0, 0, 1, undef, 0, "find_variable", "Normal Text")) |
|
1574
|
0 |
5400 |
if ($self->testRegExpr($text, "<[A-Z0-9_]+>", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
1582
|
3 |
5397 |
if ($self->testRegExpr($text, "\\s*<<(?=\\w+|\\s*[\"'])", 0, 0, 0, undef, 0, "find_here_document", "Operator")) |
|
1590
|
0 |
5397 |
if ($self->testRegExpr($text, "\\s*\\}\\s*/", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1597
|
0 |
5397 |
if ($self->testRegExpr($text, "\\s*[)]\\s*/", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1604
|
6 |
5391 |
if ($self->testRegExpr($text, "\\w+::", 0, 0, 0, undef, 0, "sub_name_def", "Function")) |
|
1611
|
0 |
5391 |
if ($self->testRegExpr($text, "\\w+[=]", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1618
|
25 |
5366 |
if ($self->testRegExpr($text, "\\bq(?=[qwx]?\\s*[^\\w\\s])", 0, 0, 0, undef, 0, "find_quoted", "Operator")) |
|
1625
|
26 |
5340 |
if ($self->testRegExpr($text, "\\bs(?=\\s*[^\\w\\s])", 0, 0, 0, undef, 0, "find_subst", "Operator")) |
|
1632
|
2 |
5338 |
if ($self->testRegExpr($text, "\\b(?:tr|y)\\s*(?=[^\\w\\s\\]})])", 0, 0, 0, undef, 0, "tr", "Operator")) |
|
1639
|
5 |
5333 |
if ($self->testRegExpr($text, "\\b(?:m|qr)(?=\\s*[^\\w\\s\\]})])", 0, 0, 0, undef, 0, "find_pattern", "Operator")) |
|
1646
|
2 |
5331 |
if ($self->testRegExpr($text, "[\\w_]+\\s*/", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1653
|
0 |
5331 |
if ($self->testRegExpr($text, "[<>\"':]/", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1661
|
29 |
5302 |
if ($self->testDetectChar($text, "/", 0, 0, 0, undef, 0, "pattern_slash", "Operator")) |
|
1668
|
0 |
5302 |
if ($self->testRegExpr($text, "-[rwxoRWXOeszfdlpSbctugkTBMAC]", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
1676
|
374 |
4928 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1684
|
375 |
4553 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1696
|
0 |
0 |
if ($self->testRegExpr($text, "[\\w_]+", 0, 0, 0, undef, 0, "#pop", "Normal Text")) |
|
1708
|
4 |
135 |
if ($self->testDetectChar($text, "^", 0, 0, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
1716
|
2 |
133 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "Pattern Character Class")) |
|
1724
|
0 |
133 |
if ($self->testDetect2Chars($text, "\\", "]", 0, 0, 0, undef, 0, "#stay", "Pattern Character Class")) |
|
1731
|
0 |
133 |
if ($self->testRegExpr($text, "\\[:^?[a-z]+:\\]", 0, 0, 0, undef, 0, "#stay", "Pattern Character Class")) |
|
1738
|
18 |
115 |
if ($self->testDetectChar($text, "]", 0, 0, 0, undef, 0, "#pop", "Pattern Internal Operator")) |
|
1750
|
0 |
3 |
if ($self->testRegExpr($text, "\\#[^)]*", 0, 0, 0, undef, 0, "#pop", "Comment")) |
|
1757
|
3 |
0 |
if ($self->testRegExpr($text, "[:=!><]+", 0, 0, 0, undef, 0, "#pop", "Pattern Internal Operator")) |
|
1764
|
0 |
0 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop", "Pattern Internal Operator")) |
|
1777
|
0 |
28 |
if ($self->testRegExpr($text, "\\\$(?=%1)", 0, 1, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
1786
|
5 |
23 |
if ($self->testRegExpr($text, "%1[cgimosx]*", 0, 1, 0, undef, 0, "#pop#pop", "Operator")) |
|
1791
|
11 |
12 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
1799
|
0 |
12 |
if ($self->testRegExpr($text, "\\\$(?=\\%1)", 0, 1, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
1812
|
0 |
0 |
if ($self->testRegExpr($text, "\\}[cgimosx]*", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
1817
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
1830
|
0 |
0 |
if ($self->testRegExpr($text, "\\][cgimosx]*", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
1835
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
1848
|
0 |
0 |
if ($self->testRegExpr($text, "\\)[cgimosx]*", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
1853
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
1865
|
3 |
173 |
if ($self->testRegExpr($text, "\\\$(?=/)", 0, 0, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
1870
|
115 |
58 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
1878
|
29 |
29 |
if ($self->testRegExpr($text, "/[cgimosx]*", 0, 0, 0, undef, 0, "#pop", "Operator")) |
|
1891
|
0 |
0 |
if ($self->testRegExpr($text, "'[cgimosx]*", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
1896
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal", $text)) |
|
1905
|
2168 |
4226 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
1909
|
2224 |
2002 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
1919
|
90 |
1912 |
if ($self->testRegExpr($text, "\\=(?:head[1-6]|over|back|item|for|begin|end|pod)\\s*.*", 0, 0, 0, 0, 0, "#stay", "Pod")) |
|
1928
|
2 |
1910 |
if ($self->testRegExpr($text, "\\=cut\\b.*", 0, 0, 0, 0, 0, "#pop", "Pod")) |
|
1937
|
0 |
0 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
1941
|
0 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
1949
|
0 |
0 |
if ($self->testRegExpr($text, "\\\\%1", 0, 1, 0, undef, 0, "#stay", "Normal Text")) |
|
1958
|
0 |
0 |
if ($self->testDetectChar($text, 1, 0, 1, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
1967
|
0 |
0 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
1971
|
0 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
1979
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "}", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
1987
|
0 |
0 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
1996
|
0 |
0 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
2000
|
0 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2008
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "]", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2016
|
0 |
0 |
if ($self->testDetectChar($text, "]", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
2025
|
4 |
10 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
2029
|
7 |
3 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2037
|
0 |
3 |
if ($self->testDetect2Chars($text, "\\", ")", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2045
|
3 |
0 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
2055
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_rules_1", $text)) |
|
2060
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_rules_2", $text)) |
|
2070
|
36 |
236 |
if ($self->includeRules("regex_pattern_internal_rules_1", $text)) |
|
2078
|
5 |
231 |
if ($self->testRegExpr($text, "[\$\@][^]\\s{}()|>']", 0, 0, 1, undef, 0, "find_variable_unsafe", "Data Type")) |
|
2083
|
132 |
99 |
if ($self->includeRules("regex_pattern_internal_rules_2", $text)) |
|
2096
|
0 |
272 |
if ($self->testRegExpr($text, "#.*\$", 0, 0, 0, undef, 1, "#stay", "Comment")) |
|
2103
|
20 |
252 |
if ($self->testRegExpr($text, "\\\\[anDdSsWw]", 0, 0, 0, undef, 0, "#stay", "Pattern Character Class")) |
|
2110
|
0 |
252 |
if ($self->testRegExpr($text, "\\\\[ABbEGLlNUuQdQZz]", 0, 0, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
2117
|
0 |
252 |
if ($self->testRegExpr($text, "\\\\[\\d]+", 0, 0, 0, undef, 0, "#stay", "Special Variable")) |
|
2124
|
16 |
236 |
if ($self->testRegExpr($text, "\\\\.", 0, 0, 0, undef, 0, "#stay", "Pattern")) |
|
2137
|
3 |
228 |
if ($self->testDetect2Chars($text, "(", "?", 0, 0, 0, undef, 0, "pat_ext", "Pattern Internal Operator")) |
|
2144
|
18 |
210 |
if ($self->testDetectChar($text, "[", 0, 0, 0, undef, 0, "pat_char_class", "Pattern Internal Operator")) |
|
2151
|
109 |
101 |
if ($self->testRegExpr($text, "[()?^*+|]", 0, 0, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
2158
|
2 |
99 |
if ($self->testRegExpr($text, "\\{[\\d, ]+\\}", 0, 0, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
2165
|
0 |
99 |
if ($self->testDetectChar($text, "\$", 0, 0, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
2172
|
0 |
99 |
if ($self->testRegExpr($text, "\\s{3,}#.*\$", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
2184
|
4 |
1169 |
if ($self->testRegExpr($text, "\\s*\\]?\\s*/", 0, 0, 0, undef, 0, "#pop", "Normal Text")) |
|
2192
|
0 |
1169 |
if ($self->testRegExpr($text, "\\s*\\}?\\s*/", 0, 0, 0, undef, 0, "#pop", "Normal Text")) |
|
2199
|
0 |
1169 |
if ($self->testRegExpr($text, "\\s*\\)?\\s*/", 0, 0, 0, undef, 0, "#pop", "Normal Text")) |
|
2206
|
0 |
1169 |
if ($self->testKeyword($text, "keywords", 0, undef, 0, "#pop", "Keyword")) |
|
2215
|
1133 |
2010 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2223
|
2 |
2008 |
if ($self->testDetect2Chars($text, "\\", "'", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2231
|
3 |
2005 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2239
|
1103 |
902 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "#pop", "Operator")) |
|
2248
|
0 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2256
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", ")", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2264
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2272
|
0 |
0 |
if ($self->testRangeDetect($text, "(", ")", 0, 0, undef, 0, "#stay", "String")) |
|
2280
|
0 |
0 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
2289
|
0 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2297
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "}", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2305
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2313
|
0 |
0 |
if ($self->testRangeDetect($text, "{", "}", 0, 0, undef, 0, "#stay", "String")) |
|
2321
|
0 |
0 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
2330
|
0 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2338
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "]", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2346
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2354
|
0 |
0 |
if ($self->testRangeDetect($text, "[", "]", 0, 0, undef, 0, "#stay", "String")) |
|
2362
|
0 |
0 |
if ($self->testDetectChar($text, "]", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
2371
|
0 |
0 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2379
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "<", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2387
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2395
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", ">", 0, 0, 0, undef, 0, "#stay", "String")) |
|
2403
|
0 |
0 |
if ($self->testRangeDetect($text, "<", ">", 0, 0, undef, 0, "#stay", "String")) |
|
2411
|
0 |
0 |
if ($self->testDetectChar($text, ">", 0, 0, 0, undef, 0, "#pop#pop", "Operator")) |
|
2420
|
2 |
14 |
if ($self->testDetectIdentifier($text, 0, undef, 0, "#stay", undef)) |
|
2428
|
0 |
14 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "String Special Character")) |
|
2436
|
0 |
14 |
if ($self->testRegExpr($text, "\\\\%1", 0, 1, 0, undef, 0, "#stay", "String Special Character")) |
|
2445
|
2 |
12 |
if ($self->testDetectChar($text, 1, 0, 1, 0, undef, 0, "#pop#pop", "Operator")) |
|
2457
|
2 |
4 |
if ($self->testAnyChar($text, "*\$\@%", 0, 0, undef, 0, "#stay", "Data Type")) |
|
2464
|
0 |
4 |
if ($self->testAnyChar($text, "&\\[];", 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2471
|
2 |
2 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "slash_safe_escape", "Normal Text")) |
|
2483
|
93 |
94 |
if ($self->testRegExpr($text, "\\w+", 0, 0, 0, undef, 0, "#stay", "Function")) |
|
2491
|
0 |
94 |
if ($self->testRegExpr($text, "\\\$\\S", 0, 0, 1, undef, 0, "find_variable", "Normal Text")) |
|
2498
|
2 |
92 |
if ($self->testRegExpr($text, "\\s*\\(", 0, 0, 0, undef, 0, "sub_arg_definition", "Normal Text")) |
|
2506
|
5 |
87 |
if ($self->testDetect2Chars($text, ":", ":", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2518
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+#.*\$", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
2523
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
2531
|
0 |
0 |
if ($self->testDetectChar($text, "]", 0, 0, 0, undef, 0, "subst_bracket_replace", "Operator")) |
|
2541
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
2549
|
0 |
0 |
if ($self->testDetectChar($text, "[", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
2557
|
0 |
0 |
if ($self->testRegExpr($text, "\\][cegimosx]*", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
2569
|
0 |
0 |
if ($self->testRegExpr($text, "#.*\$", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
2577
|
0 |
0 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "subst_curlybrace_replace", "Operator")) |
|
2589
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+#.*\$", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
2594
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
2602
|
0 |
0 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "subst_curlybrace_middle", "Operator")) |
|
2612
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
2620
|
0 |
0 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "subst_curlybrace_replace_recursive", "Normal Text")) |
|
2628
|
0 |
0 |
if ($self->testRegExpr($text, "\\}[cegimosx]*", 0, 0, 0, undef, 0, "#pop#pop#pop#pop", "Operator")) |
|
2641
|
0 |
0 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "subst_curlybrace_replace_recursive", "String (interpolated)")) |
|
2649
|
0 |
0 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "#pop", "Normal Text")) |
|
2654
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
2666
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+#.*\$", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
2671
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
2679
|
0 |
0 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "subst_paren_replace", "Operator")) |
|
2689
|
0 |
0 |
if ($self->includeRules("ipstring_internal", $text)) |
|
2697
|
0 |
0 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
2705
|
0 |
0 |
if ($self->testRegExpr($text, "\\)[cegimosx]*", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
2718
|
1 |
102 |
if ($self->testRegExpr($text, "\\\$(?=%1)", 0, 1, 0, undef, 0, "#stay", "Pattern Internal Operator")) |
|
2728
|
26 |
76 |
if ($self->testRegExpr($text, "(%1)", 0, 1, 0, undef, 0, "subst_slash_replace", "Operator")) |
|
2733
|
47 |
29 |
if ($self->includeRules("regex_pattern_internal_ip", $text)) |
|
2743
|
12 |
32 |
if ($self->includeRules("ipstring_internal", $text)) |
|
2752
|
26 |
6 |
if ($self->testRegExpr($text, "%1[cegimosx]*", 0, 1, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
2764
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+#.*\$", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
2769
|
0 |
0 |
if ($self->includeRules("regex_pattern_internal", $text)) |
|
2778
|
0 |
0 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "subst_sq_replace", "Operator")) |
|
2791
|
0 |
0 |
if ($self->testRegExpr($text, "'[cegimosx]*", 0, 0, 0, undef, 0, "#pop#pop#pop", "Operator")) |
|
2803
|
0 |
2 |
if ($self->testRegExpr($text, "\\([^)]*\\)\\s*\\(?:[^)]*\\)", 0, 0, 0, undef, 0, "#pop", "Pattern")) |
|
2810
|
0 |
2 |
if ($self->testRegExpr($text, "\\{[^}]*\\}\\s*\\{[^}]*\\}", 0, 0, 0, undef, 0, "#pop", "Pattern")) |
|
2817
|
0 |
2 |
if ($self->testRegExpr($text, "\\[[^}]*\\]\\s*\\[[^\\]]*\\]", 0, 0, 0, undef, 0, "#pop", "Pattern")) |
|
2825
|
0 |
2 |
if ($self->testRegExpr($text, "([^a-zA-Z0-9_\\s[\\]{}()]).*?\\1.*?\\1", 0, 0, 0, undef, 0, "#pop", "Pattern")) |
|
2835
|
1457 |
1084 |
if ($self->includeRules("var_detect_rules", $text)) |
|
2840
|
2 |
1082 |
if ($self->includeRules("slash_safe_escape", $text)) |
|
2852
|
1230 |
1382 |
if ($self->testRegExpr($text, "[\\w_]+", 0, 0, 0, undef, 0, "#stay", "Data Type")) |
|
2860
|
1 |
1381 |
if ($self->testDetect2Chars($text, ":", ":", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2867
|
7 |
1374 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
2875
|
256 |
1118 |
if ($self->testDetect2Chars($text, "-", ">", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2883
|
0 |
1118 |
if ($self->testDetect2Chars($text, "+", "+", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2891
|
0 |
1118 |
if ($self->testDetect2Chars($text, "-", "-", 0, 0, 0, undef, 0, "#stay", "Normal Text")) |
|
2901
|
37 |
34 |
if ($self->includeRules("var_detect_rules", $text)) |