| 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
|
82 |
1725 |
if ($self->testDetectSpaces($text, 0, undef, 0, '#stay', undef)) |
|
655
|
2 |
1723 |
if ($self->includePlugin('Alerts', $text)) |
|
659
|
480 |
1243 |
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, q[\\s*'([^']+)'\\s*;?], 0, 0, 0, undef, 0, 'here_document_dumb', 'Keyword')) |
|
746
|
0 |
3 |
if ($self->testRegExpr($text, '\\s+#.*', 0, 0, 0, undef, 0, '#stay', 'Comment')) |
|
754
|
0 |
3 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'pattern_brace', 'Operator')) |
|
762
|
0 |
3 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'pattern_paren', 'Operator')) |
|
770
|
0 |
3 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'pattern_bracket', 'Operator')) |
|
778
|
0 |
3 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, 'pattern_sq', 'Operator')) |
|
786
|
3 |
0 |
if ($self->testRegExpr($text, '([^\\w\\s])', 0, 0, 0, undef, 0, 'pattern', 'Operator')) |
|
799
|
0 |
2 |
if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'ip_string_2', 'Operator')) |
|
807
|
0 |
2 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'ip_string_3', 'Operator')) |
|
815
|
0 |
2 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'ip_string_4', 'Operator')) |
|
823
|
0 |
2 |
if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, 'ip_string_5', 'Operator')) |
|
831
|
2 |
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 |
7 |
if ($self->testRegExpr($text, q[x\\s*(')], 0, 0, 0, undef, 0, 'string_6', 'Operator')) |
|
858
|
2 |
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, q['], 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 |
1065 |
if ($self->testRegExpr($text, '\\$[0-9]+', 0, 0, 0, undef, 0, 'var_detect', 'Special Variable')) |
|
1027
|
2 |
1063 |
if ($self->testRegExpr($text, '[@\\$](?:[\\+\\-_]\\B|ARGV\\b|INC\\b)', 0, 0, 0, undef, 0, 'var_detect', 'Special Variable')) |
|
1034
|
0 |
1063 |
if ($self->testRegExpr($text, '[%\\$](?:INC\\b|ENV\\b|SIG\\b)', 0, 0, 0, undef, 0, 'var_detect', 'Special Variable')) |
|
1041
|
24 |
1039 |
if ($self->testRegExpr($text, '\\$\\$[\\$\\w_]', 0, 0, 0, undef, 0, 'var_detect', 'Data Type')) |
|
1048
|
0 |
1039 |
if ($self->testRegExpr($text, '\\$[#_][\\w_]', 0, 0, 0, undef, 0, 'var_detect', 'Data Type')) |
|
1055
|
0 |
1039 |
if ($self->testRegExpr($text, '\\$+::', 0, 0, 0, undef, 0, 'var_detect', 'Data Type')) |
|
1062
|
11 |
1028 |
if ($self->testRegExpr($text, '\\$[^a-zA-Z0-9\\s{][A-Z]?', 0, 0, 0, undef, 0, '#stay', 'Special Variable')) |
|
1069
|
0 |
1028 |
if ($self->testRegExpr($text, '[\\$@%]\\{[\\w_]+\\}', 0, 0, 0, undef, 0, 'var_detect', 'Data Type')) |
|
1076
|
1014 |
14 |
if ($self->testAnyChar($text, '$@%', 0, 0, undef, 0, 'var_detect', 'Data Type')) |
|
1083
|
0 |
14 |
if ($self->testRegExpr($text, '\\*[a-zA-Z_]+', 0, 0, 0, undef, 0, 'var_detect', 'Data Type')) |
|
1090
|
0 |
14 |
if ($self->testRegExpr($text, '\\*[^a-zA-Z0-9\\s{][A-Z]?', 0, 0, 0, undef, 0, '#stay', 'Special Variable')) |
|
1097
|
1 |
13 |
if ($self->testAnyChar($text, '$@%*', 0, 0, undef, 0, '#pop', 'Operator')) |
|
1109
|
2 |
28 |
if ($self->testRegExpr($text, '\\$[0-9]+', 0, 0, 0, undef, 0, 'var_detect_unsafe', 'Special Variable')) |
|
1116
|
0 |
28 |
if ($self->testRegExpr($text, '[@\\$](?:[\\+\\-_]\\B|ARGV\\b|INC\\b)', 0, 0, 0, undef, 0, 'var_detect_unsafe', 'Special Variable')) |
|
1123
|
0 |
28 |
if ($self->testRegExpr($text, '[%\\$](?:INC\\b|ENV\\b|SIG\\b)', 0, 0, 0, undef, 0, 'var_detect_unsafe', 'Special Variable')) |
|
1130
|
0 |
28 |
if ($self->testRegExpr($text, '\\$\\$[\\$\\w_]', 0, 0, 0, undef, 0, 'var_detect_unsafe', 'Data Type')) |
|
1137
|
0 |
28 |
if ($self->testRegExpr($text, '\\$[#_][\\w_]', 0, 0, 0, undef, 0, 'var_detect_unsafe', 'Data Type')) |
|
1144
|
0 |
28 |
if ($self->testRegExpr($text, '\\$+::', 0, 0, 0, undef, 0, 'var_detect_unsafe', 'Data Type')) |
|
1151
|
1 |
27 |
if ($self->testRegExpr($text, '\\$[^a-zA-Z0-9\\s{][A-Z]?', 0, 0, 0, undef, 0, '#stay', 'Special Variable')) |
|
1158
|
0 |
27 |
if ($self->testRegExpr($text, '[\\$@%]\\{[\\w_]+\\}', 0, 0, 0, undef, 0, 'var_detect_unsafe', 'Data Type')) |
|
1165
|
26 |
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
|
0 |
34 |
if ($self->testDetectSpaces($text, 0, undef, 0, '#stay', undef)) |
|
1198
|
2 |
32 |
if ($self->testRegExpr($text, '%1', 0, 1, 0, 0, 0, '#pop#pop', 'Keyword')) |
|
1206
|
0 |
32 |
if ($self->testRegExpr($text, q[\\=\\s*<<\\s*["']?([A-Z0-9_\\-]+)["']?], 0, 0, 0, undef, 0, 'here_document', 'Keyword')) |
|
1211
|
16 |
16 |
if ($self->includeRules('ipstring_internal', $text)) |
|
1220
|
0 |
6 |
if ($self->testDetectSpaces($text, 0, undef, 0, '#stay', undef)) |
|
1230
|
1 |
5 |
if ($self->testRegExpr($text, '%1', 0, 1, 0, 0, 0, '#pop#pop', 'Keyword')) |
|
1234
|
3 |
2 |
if ($self->testDetectIdentifier($text, 0, undef, 0, '#stay', undef)) |
|
1247
|
37 |
241 |
if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'Operator')) |
|
1252
|
124 |
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
|
0 |
0 |
if ($self->testRangeDetect($text, '{', '}', 0, 0, undef, 0, '#stay', 'String (interpolated)')) |
|
1299
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop#pop#pop', 'Operator')) |
|
1304
|
0 |
0 |
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 |
20 |
if ($self->testRegExpr($text, '\\\\%1', 0, 1, 0, undef, 0, '#stay', 'String (interpolated)')) |
|
1378
|
2 |
18 |
if ($self->testDetectChar($text, '1', 0, 1, 0, undef, 0, '#pop#pop#pop', 'Operator')) |
|
1383
|
8 |
10 |
if ($self->includeRules('ipstring_internal', $text)) |
|
1392
|
118 |
217 |
if ($self->testDetectIdentifier($text, 0, undef, 0, '#stay', undef)) |
|
1399
|
9 |
208 |
if ($self->testRegExpr($text, '\\\\[UuLlEtnaefr]', 0, 0, 0, undef, 0, '#stay', 'String Special Character')) |
|
1406
|
9 |
199 |
if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'String (interpolated)')) |
|
1414
|
24 |
175 |
if ($self->testRegExpr($text, '(?:[\\$@]\\S|%[\\w{])', 0, 0, 1, undef, 0, 'find_variable_unsafe', 'Normal Text')) |
|
1426
|
1 |
14614 |
if ($self->testRegExpr($text, '^#!\\/.*', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
1434
|
0 |
14614 |
if ($self->testStringDetect($text, '__DATA__', 0, 0, 0, undef, 1, 'data_handle', 'Keyword')) |
|
1442
|
2 |
14612 |
if ($self->testStringDetect($text, '__END__', 0, 0, 0, undef, 1, '#stay', 'Keyword')) |
|
1449
|
81 |
14531 |
if ($self->testRegExpr($text, '\\bsub\\s+', 0, 0, 0, undef, 0, 'sub_name_def', 'Keyword')) |
|
1456
|
542 |
13989 |
if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword')) |
|
1463
|
51 |
13938 |
if ($self->testKeyword($text, 'operators', 0, undef, 0, '#stay', 'Operator')) |
|
1470
|
237 |
13701 |
if ($self->testKeyword($text, 'functions', 0, undef, 0, '#stay', 'Function')) |
|
1477
|
14 |
13687 |
if ($self->testKeyword($text, 'pragmas', 0, undef, 0, '#stay', 'Pragma')) |
|
1486
|
2 |
13685 |
if ($self->testRegExpr($text, '\\=(?:head[1-6]|over|back|item|for|begin|end|pod)(\\s|$)', 0, 0, 0, 0, 0, 'pod', 'Pod')) |
|
1490
|
58 |
13627 |
if ($self->testDetectSpaces($text, 0, undef, 0, '#stay', undef)) |
|
1497
|
107 |
13520 |
if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 0, 'comment', 'Comment')) |
|
1503
|
0 |
13520 |
if ($self->testHlCOct($text, 0, undef, 0, 'slash_safe_escape', 'Octal')) |
|
1509
|
0 |
13520 |
if ($self->testHlCHex($text, 0, undef, 0, 'slash_safe_escape', 'Hex')) |
|
1515
|
59 |
13461 |
if ($self->testFloat($text, 0, undef, 0, 'slash_safe_escape', 'Float')) |
|
1521
|
2 |
13459 |
if ($self->testInt($text, 0, undef, 0, 'slash_safe_escape', 'Decimal')) |
|
1528
|
0 |
13459 |
if ($self->testRegExpr($text, q[\\\\(["'])[^\\1]], 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1536
|
0 |
13459 |
if ($self->testDetect2Chars($text, '&', q['], 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1544
|
37 |
13422 |
if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, 'ip_string', 'Operator')) |
|
1552
|
1102 |
12320 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, 'string', 'Operator')) |
|
1559
|
0 |
12320 |
if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, 'Backticked', 'Operator')) |
|
1567
|
1073 |
11247 |
if ($self->testRegExpr($text, '(?:[$@]\\S|%[\\w{]|\\*[^\\d\\*{\\$@%=(])', 0, 0, 1, undef, 0, 'find_variable', 'Normal Text')) |
|
1574
|
0 |
11247 |
if ($self->testRegExpr($text, '<[A-Z0-9_]+>', 0, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
1582
|
3 |
11244 |
if ($self->testRegExpr($text, q[\\s*<<(?=\\w+|\\s*["'])], 0, 0, 0, undef, 0, 'find_here_document', 'Operator')) |
|
1590
|
0 |
11244 |
if ($self->testRegExpr($text, '\\s*\\}\\s*/', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1597
|
0 |
11244 |
if ($self->testRegExpr($text, '\\s*[)]\\s*/', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1604
|
6 |
11238 |
if ($self->testRegExpr($text, '\\w+::', 0, 0, 0, undef, 0, 'sub_name_def', 'Function')) |
|
1611
|
0 |
11238 |
if ($self->testRegExpr($text, '\\w+[=]', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1618
|
7 |
11231 |
if ($self->testRegExpr($text, '\\bq(?=[qwx]?\\s*[^\\w\\s])', 0, 0, 0, undef, 0, 'find_quoted', 'Operator')) |
|
1625
|
26 |
11205 |
if ($self->testRegExpr($text, '\\bs(?=\\s*[^\\w\\s])', 0, 0, 0, undef, 0, 'find_subst', 'Operator')) |
|
1632
|
0 |
11205 |
if ($self->testRegExpr($text, '\\b(?:tr|y)\\s*(?=[^\\w\\s\\]})])', 0, 0, 0, undef, 0, 'tr', 'Operator')) |
|
1639
|
3 |
11202 |
if ($self->testRegExpr($text, '\\b(?:m|qr)(?=\\s*[^\\w\\s\\]})])', 0, 0, 0, undef, 0, 'find_pattern', 'Operator')) |
|
1646
|
2 |
11200 |
if ($self->testRegExpr($text, '[\\w_]+\\s*/', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1653
|
0 |
11200 |
if ($self->testRegExpr($text, q[[<>"':]/], 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1661
|
29 |
11171 |
if ($self->testDetectChar($text, '/', 0, 0, 0, undef, 0, 'pattern_slash', 'Operator')) |
|
1668
|
2 |
11169 |
if ($self->testRegExpr($text, '-[rwxoRWXOeszfdlpSbctugkTBMAC]', 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
1676
|
368 |
10801 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
1684
|
368 |
10433 |
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 |
14 |
if ($self->testRegExpr($text, '\\$(?=%1)', 0, 1, 0, undef, 0, '#stay', 'Pattern Internal Operator')) |
|
1786
|
3 |
11 |
if ($self->testRegExpr($text, '%1[cgimosx]*', 0, 1, 0, undef, 0, '#pop#pop', 'Operator')) |
|
1791
|
9 |
2 |
if ($self->includeRules('regex_pattern_internal_ip', $text)) |
|
1799
|
0 |
2 |
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, q['[cgimosx]*], 0, 0, 0, undef, 0, '#pop#pop', 'Operator')) |
|
1896
|
0 |
0 |
if ($self->includeRules('regex_pattern_internal', $text)) |
|
1905
|
339 |
10387 |
if ($self->testDetectSpaces($text, 0, undef, 0, '#stay', undef)) |
|
1909
|
2167 |
8220 |
if ($self->testDetectIdentifier($text, 0, undef, 0, '#stay', undef)) |
|
1919
|
89 |
8131 |
if ($self->testRegExpr($text, '\\=(?:head[1-6]|over|back|item|for|begin|end|pod)\\s*.*', 0, 0, 0, 0, 0, '#stay', 'Pod')) |
|
1928
|
0 |
8131 |
if ($self->testRegExpr($text, '\\=cut.*$', 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
|
0 |
14 |
if ($self->testDetectSpaces($text, 0, undef, 0, '#stay', undef)) |
|
2029
|
7 |
7 |
if ($self->testDetectIdentifier($text, 0, undef, 0, '#stay', undef)) |
|
2037
|
0 |
7 |
if ($self->testDetect2Chars($text, '\\', ')', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
2045
|
3 |
4 |
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 |
224 |
if ($self->includeRules('regex_pattern_internal_rules_1', $text)) |
|
2078
|
5 |
219 |
if ($self->testRegExpr($text, q([$@][^]\\s{}()|>']), 0, 0, 1, undef, 0, 'find_variable_unsafe', 'Data Type')) |
|
2083
|
130 |
89 |
if ($self->includeRules('regex_pattern_internal_rules_2', $text)) |
|
2096
|
0 |
260 |
if ($self->testRegExpr($text, '#.*$', 0, 0, 0, undef, 1, '#stay', 'Comment')) |
|
2103
|
20 |
240 |
if ($self->testRegExpr($text, '\\\\[anDdSsWw]', 0, 0, 0, undef, 0, '#stay', 'Pattern Character Class')) |
|
2110
|
0 |
240 |
if ($self->testRegExpr($text, '\\\\[ABbEGLlNUuQdQZz]', 0, 0, 0, undef, 0, '#stay', 'Pattern Internal Operator')) |
|
2117
|
0 |
240 |
if ($self->testRegExpr($text, '\\\\[\\d]+', 0, 0, 0, undef, 0, '#stay', 'Special Variable')) |
|
2124
|
16 |
224 |
if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Pattern')) |
|
2137
|
3 |
216 |
if ($self->testDetect2Chars($text, '(', '?', 0, 0, 0, undef, 0, 'pat_ext', 'Pattern Internal Operator')) |
|
2144
|
18 |
198 |
if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'pat_char_class', 'Pattern Internal Operator')) |
|
2151
|
109 |
89 |
if ($self->testRegExpr($text, '[()?^*+|]', 0, 0, 0, undef, 0, '#stay', 'Pattern Internal Operator')) |
|
2158
|
0 |
89 |
if ($self->testRegExpr($text, '\\{[\\d, ]+\\}', 0, 0, 0, undef, 0, '#stay', 'Pattern Internal Operator')) |
|
2165
|
0 |
89 |
if ($self->testDetectChar($text, '$', 0, 0, 0, undef, 0, '#stay', 'Pattern Internal Operator')) |
|
2172
|
0 |
89 |
if ($self->testRegExpr($text, '\\s{3,}#.*$', 0, 0, 0, undef, 0, '#stay', 'Comment')) |
|
2184
|
4 |
1113 |
if ($self->testRegExpr($text, '\\s*\\]?\\s*/', 0, 0, 0, undef, 0, '#pop', 'Normal Text')) |
|
2192
|
0 |
1113 |
if ($self->testRegExpr($text, '\\s*\\}?\\s*/', 0, 0, 0, undef, 0, '#pop', 'Normal Text')) |
|
2199
|
0 |
1113 |
if ($self->testRegExpr($text, '\\s*\\)?\\s*/', 0, 0, 0, undef, 0, '#pop', 'Normal Text')) |
|
2206
|
0 |
1113 |
if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#pop', 'Keyword')) |
|
2215
|
1131 |
2006 |
if ($self->testDetectIdentifier($text, 0, undef, 0, '#stay', undef)) |
|
2223
|
2 |
2004 |
if ($self->testDetect2Chars($text, '\\', q['], 0, 0, 0, undef, 0, '#stay', 'String Special Character')) |
|
2231
|
3 |
2001 |
if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'String Special Character')) |
|
2239
|
1102 |
899 |
if ($self->testDetectChar($text, q['], 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
|
92 |
92 |
if ($self->testRegExpr($text, '\\w+', 0, 0, 0, undef, 0, '#stay', 'Function')) |
|
2491
|
0 |
92 |
if ($self->testRegExpr($text, '\\$\\S', 0, 0, 1, undef, 0, 'find_variable', 'Normal Text')) |
|
2498
|
2 |
90 |
if ($self->testRegExpr($text, '\\s*\\(', 0, 0, 0, undef, 0, 'sub_arg_definition', 'Normal Text')) |
|
2506
|
5 |
85 |
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, q['], 0, 0, 0, undef, 0, 'subst_sq_replace', 'Operator')) |
|
2791
|
0 |
0 |
if ($self->testRegExpr($text, q['[cegimosx]*], 0, 0, 0, undef, 0, '#pop#pop#pop', 'Operator')) |
|
2803
|
0 |
0 |
if ($self->testRegExpr($text, '\\([^)]*\\)\\s*\\(?:[^)]*\\)', 0, 0, 0, undef, 0, '#pop', 'Pattern')) |
|
2810
|
0 |
0 |
if ($self->testRegExpr($text, '\\{[^}]*\\}\\s*\\{[^}]*\\}', 0, 0, 0, undef, 0, '#pop', 'Pattern')) |
|
2817
|
0 |
0 |
if ($self->testRegExpr($text, '\\[[^}]*\\]\\s*\\[[^\\]]*\\]', 0, 0, 0, undef, 0, '#pop', 'Pattern')) |
|
2825
|
0 |
0 |
if ($self->testRegExpr($text, '([^a-zA-Z0-9_\\s[\\]{}()]).*?\\1.*?\\1', 0, 0, 0, undef, 0, '#pop', 'Pattern')) |
|
2835
|
1432 |
1059 |
if ($self->includeRules('var_detect_rules', $text)) |
|
2840
|
2 |
1057 |
if ($self->includeRules('slash_safe_escape', $text)) |
|
2852
|
1201 |
1351 |
if ($self->testRegExpr($text, '[\\w_]+', 0, 0, 0, undef, 0, '#stay', 'Data Type')) |
|
2860
|
1 |
1350 |
if ($self->testDetect2Chars($text, ':', ':', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
2867
|
7 |
1343 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, '#stay', 'Operator')) |
|
2875
|
256 |
1087 |
if ($self->testDetect2Chars($text, '-', '>', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
2883
|
0 |
1087 |
if ($self->testDetect2Chars($text, '+', '+', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
2891
|
0 |
1087 |
if ($self->testDetect2Chars($text, '-', '-', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) |
|
2901
|
33 |
28 |
if ($self->includeRules('var_detect_rules', $text)) |