| line |
true |
false |
branch |
|
184
|
0 |
0 |
if ($self->testDetect2Chars($text, "*", "/", 0, 0, 0, undef, 0, "#pop", "Comment")) |
|
197
|
0 |
0 |
if ($self->testStringDetect($text, "", 0, 0, 0, undef, 0, "#pop", "Comment")) |
|
210
|
0 |
0 |
if ($self->testDetect2Chars($text, "%", ">", 0, 0, 0, undef, 0, "#pop", "Mason Tag")) |
|
218
|
0 |
0 |
if ($self->testStringDetect($text, "", 0, 0, 0, undef, 0, "#pop", "Mason Tag")) |
|
226
|
0 |
0 |
if ($self->testStringDetect($text, "", 0, 0, 0, undef, 0, "#pop", "Mason Tag")) |
|
233
|
0 |
0 |
if ($self->testKeyword($text, "keywords", 0, undef, 0, "#stay", "Keyword")) |
|
239
|
0 |
0 |
if ($self->testHlCOct($text, 0, undef, 0, "#stay", "Octal")) |
|
245
|
0 |
0 |
if ($self->testHlCHex($text, 0, undef, 0, "#stay", "Hex")) |
|
251
|
0 |
0 |
if ($self->testInt($text, 0, undef, 0, "#stay", "Decimal")) |
|
257
|
0 |
0 |
if ($self->testHlCChar($text, 0, undef, 0, "#stay", "Char")) |
|
264
|
0 |
0 |
if ($self->testRegExpr($text, "^#!.*", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
271
|
0 |
0 |
if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "String", "String")) |
|
278
|
0 |
0 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "String2", "String")) |
|
285
|
0 |
0 |
if ($self->testDetectChar($text, "`", 0, 0, 0, undef, 0, "String", "String Char")) |
|
293
|
0 |
0 |
if ($self->testDetect2Chars($text, "/", "/", 0, 0, 0, undef, 0, "Commentar 1", "Comment")) |
|
301
|
0 |
0 |
if ($self->testDetect2Chars($text, "/", "*", 0, 0, 0, undef, 0, "Commentar 2", "Comment")) |
|
309
|
0 |
0 |
if ($self->testDetect2Chars($text, "s", "/", 0, 0, 0, undef, 0, "Pattern2", "Pattern")) |
|
316
|
0 |
0 |
if ($self->testDetectChar($text, "/", 0, 0, 0, undef, 0, "Pattern", "Pattern")) |
|
323
|
0 |
0 |
if ($self->testAnyChar($text, "!%&()+,-<=>?[]^{|}~", 0, 0, undef, 0, "#stay", "Symbol")) |
|
330
|
0 |
0 |
if ($self->testRegExpr($text, "\\\$[0-9]+", 0, 0, 0, undef, 0, "#stay", "Decimal")) |
|
337
|
0 |
0 |
if ($self->testRegExpr($text, "\\\$\\#?[a-zA-Z_]+[a-zA-Z0-9_]*", 0, 0, 0, undef, 0, "#stay", "Data Type")) |
|
344
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+\\:", 0, 0, 0, undef, 0, "#stay", "Pattern")) |
|
351
|
0 |
0 |
if ($self->testDetectChar($text, "#", 0, 0, 0, undef, 0, "Commentar 1", "Comment")) |
|
363
|
0 |
0 |
if ($self->testRegExpr($text, "<\\%method[^>]*>", 0, 0, 0, undef, 0, "EmbeddedPerl", "Mason Tag")) |
|
371
|
0 |
0 |
if ($self->testStringDetect($text, "<%method>", 0, 0, 0, undef, 0, "EmbeddedPerl", "Mason Tag")) |
|
379
|
0 |
0 |
if ($self->testStringDetect($text, "<%doc>", 0, 0, 0, undef, 0, "Documentation", "Comment")) |
|
387
|
0 |
0 |
if ($self->testStringDetect($text, "<%perl>", 0, 0, 0, undef, 0, "EmbeddedPerl", "Mason Tag")) |
|
395
|
0 |
0 |
if ($self->testDetect2Chars($text, "<", "%", 0, 0, 0, undef, 0, "EmbeddedPerl", "Mason Tag")) |
|
403
|
0 |
0 |
if ($self->testDetect2Chars($text, "<", "&", 0, 0, 0, undef, 0, "MethodCall", "Mason Method")) |
|
410
|
0 |
0 |
if ($self->testRegExpr($text, "^%", 0, 0, 0, undef, 0, "PerlOneLiner", "Mason Tag")) |
|
423
|
0 |
0 |
if ($self->testDetect2Chars($text, "&", ">", 0, 0, 0, undef, 0, "#pop", "Mason Method")) |
|
435
|
0 |
0 |
if ($self->testRegExpr($text, "\\\\[\\/\\[\\]dDwWsSnrtfb0\\\$\@]?", 0, 0, 0, undef, 0, "#stay", "String Char")) |
|
442
|
0 |
0 |
if ($self->testRegExpr($text, "\\^[\\/\\[\\]]?", 0, 0, 0, undef, 0, "#stay", "String Char")) |
|
449
|
0 |
0 |
if ($self->testDetectChar($text, "/", 0, 0, 0, undef, 0, "#pop", "Pattern")) |
|
461
|
0 |
0 |
if ($self->testRegExpr($text, "\\\\[\\/\\[\\]dDwWsSnrtfb0\\\$\@]?", 0, 0, 0, undef, 0, "#stay", "String Char")) |
|
468
|
0 |
0 |
if ($self->testRegExpr($text, "\\^[\\/\\[\\]]?", 0, 0, 0, undef, 0, "#stay", "String Char")) |
|
475
|
0 |
0 |
if ($self->testRegExpr($text, "\\/", 0, 0, 0, undef, 0, "Pattern3", "Pattern")) |
|
487
|
0 |
0 |
if ($self->testRegExpr($text, "\\\\[\\/\\[\\]dDwWsSnrtfb0\\\$\@]?", 0, 0, 0, undef, 0, "#stay", "String Char")) |
|
494
|
0 |
0 |
if ($self->testRegExpr($text, "\\^[\\/\\[\\]]?", 0, 0, 0, undef, 0, "#stay", "String Char")) |
|
501
|
0 |
0 |
if ($self->testRegExpr($text, "\\/g?", 0, 0, 0, undef, 0, "#pop#pop", "Pattern")) |
|
513
|
0 |
0 |
if ($self->testKeyword($text, "keywords", 0, undef, 0, "#stay", "Keyword")) |
|
519
|
0 |
0 |
if ($self->testHlCOct($text, 0, undef, 0, "#stay", "Octal")) |
|
525
|
0 |
0 |
if ($self->testHlCHex($text, 0, undef, 0, "#stay", "Hex")) |
|
531
|
0 |
0 |
if ($self->testInt($text, 0, undef, 0, "#stay", "Decimal")) |
|
537
|
0 |
0 |
if ($self->testHlCChar($text, 0, undef, 0, "#stay", "Char")) |
|
544
|
0 |
0 |
if ($self->testRegExpr($text, "^#!.*", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
551
|
0 |
0 |
if ($self->testRegExpr($text, "\"[^\"]*\"", 0, 0, 0, undef, 0, "#stay", "String")) |
|
558
|
0 |
0 |
if ($self->testRegExpr($text, "'[^']*'", 0, 0, 0, undef, 0, "#stay", "String")) |
|
565
|
0 |
0 |
if ($self->testDetectChar($text, "`", 0, 0, 0, undef, 0, "Something", "String Char")) |
|
573
|
0 |
0 |
if ($self->testDetect2Chars($text, "/", "/", 0, 0, 0, undef, 0, "Commentar 1", "Comment")) |
|
581
|
0 |
0 |
if ($self->testDetect2Chars($text, "/", "*", 0, 0, 0, undef, 0, "Commentar 2", "Comment")) |
|
589
|
0 |
0 |
if ($self->testDetect2Chars($text, "s", "/", 0, 0, 0, undef, 0, "Pattern2", "Pattern")) |
|
596
|
0 |
0 |
if ($self->testAnyChar($text, "!%&()+,-<=>?[]^{|}~", 0, 0, undef, 0, "#stay", "Symbol")) |
|
603
|
0 |
0 |
if ($self->testRegExpr($text, "\\\$[0-9]+", 0, 0, 0, undef, 0, "#stay", "Decimal")) |
|
610
|
0 |
0 |
if ($self->testRegExpr($text, "\\\$\\#?[a-zA-Z_]+[a-zA-Z0-9_]*", 0, 0, 0, undef, 0, "#stay", "Data Type")) |
|
617
|
0 |
0 |
if ($self->testRegExpr($text, "\\s+\\:", 0, 0, 0, undef, 0, "#stay", "Pattern")) |
|
624
|
0 |
0 |
if ($self->testRegExpr($text, "\\#.*", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
636
|
0 |
0 |
if ($self->testDetectChar($text, "`", 0, 0, 0, undef, 0, "#pop", "String Char")) |
|
647
|
0 |
0 |
if ($self->testLineContinue($text, 0, undef, 0, "#stay", "String")) |
|
653
|
0 |
0 |
if ($self->testHlCStringChar($text, 0, undef, 0, "#stay", "String Char")) |
|
660
|
0 |
0 |
if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "#pop", "String")) |
|
667
|
0 |
0 |
if ($self->testRegExpr($text, "\\\$[0-9]+", 0, 0, 0, undef, 0, "#stay", "Decimal")) |
|
674
|
0 |
0 |
if ($self->testRegExpr($text, "\\\$[a-zA-Z_]*[a-zA-Z0-9_]*", 0, 0, 0, undef, 0, "#stay", "Data Type")) |
|
685
|
0 |
0 |
if ($self->testLineContinue($text, 0, undef, 0, "#stay", "String")) |
|
693
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "'", 0, 0, 0, undef, 0, "#stay", "String Char")) |
|
700
|
0 |
0 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "#pop", "String")) |