| 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, q['], 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, q['[^']*'], 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, '\\', q['], 0, 0, 0, undef, 0, '#stay', 'String Char')) |
|
700
|
0 |
0 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, '#pop', 'String')) |