Branch Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Template.pm
Criterion Covered Total %
branch 190 232 81.9


line true false branch
21 228 0 unless (defined $debug)
23 97 131 unless (defined $substitutions)
25 92 136 unless (defined $formattable)
49 142 86 unless (defined $engine)
57 216 220404 if (@_)
63 216 23262 if (@_)
69 1218 0 if (defined $c)
77 1194 24 if (@o)
86 5333 0 if (defined $$s[1]) { }
89 5333 0 if (defined $c) { }
90 5333 0 if (defined $$c[$num]) { }
146 34 5299 if (defined $mode) { }
147 34 0 if ($string =~ s/^(\d)//)
149 0 34 if ($string ne '')
155 5299 10439 if ($string =~ s/^([^\%]*)\%(\d)//) { }
157 5299 0 if ($r ne '') { }
179 216 1391580 if (@_)
185 695790 0 if (exists $self->contextdata->{$context}) { }
187 506540 189250 if (exists $$c{$item}) { }
200 7670 37968 if ($context =~ /^#pop/i) { }
28121 9847 elsif ($context =~ /^#stay/i) { }
6 9841 elsif ($context =~ /^##(.+)/) { }
216 0 0 if (@_)
222 0 0 if (@_)
228 216 372502 if (@_)
234 228 2318872 if (@_)
242 196 38 if ($line =~ /^\s*$/ and $string =~ /^[^\s]/)
250 0 55817 if (@_)
261 222836 6 if (defined $top) { }
263 11814 211022 if ($text =~ s/^(\n)//) { }
266 1642 10172 if (defined $e)
274 0 11814 if (defined $b)
280 168698 42324 unless ($result)
282 1434 167264 if (defined $f) { }
307 0 55817 unless (defined $t)
313 9734 314049 if (exists $$s{$k}) { }
320 55817 0 if (exists $$rt{$t}) { }
335 22883 0 if (defined $plug)
338 22883 0 if (defined $call) { }
350 81916 0 if (defined $call) { }
360 260 172 if ($self->engine eq $self)
367 216 72262 if (@_)
385 0 21 if ($name =~ s/^(\d)//)
402 24120 814325 if ($l eq '')
409 309957 256074 if ($self->linestart or $self->lastchar =~ /$deliminators/)
417 232204 1919292 if (@_)
423 48432 811511 if ($self->linesegment eq '')
431 0 72927 if (@_)
437 115 107 if (@_)
445 664 1 if (@_) { }
456 0 2 if (defined $top) { }
469 234 42417 if ($fnspace)
470 38 196 unless ($eng->firstnonspace($$text))
474 280 42333 if (defined $column)
475 51 229 if ($column ne $eng->column)
479 41326 1236 unless ($lahead)
482 8565 32761 if (not defined $attr) { }
498 88 22916 unless (exists $$plugs{$language})
500 0 88 unless (defined $modname)
506 86 2 if (defined $plug) { }
512 23002 2 if (exists $$plugs{$language})
527 56033 63760 if (@_)
534 14 220390 unless defined $ch
536 220390 0 if ($ch ne '')
544 40025 275512 if (@_)
551 55811 7949 if ($parse ne '')
562 40025 180379 if (defined $attr and $attr ne $self->snippetAttribute)
571 375 257404 if (@_)
596 0 0 if (Dumper($h) eq Dumper($state))
614 0 55817 if (@_)
625 0 40942 if ($insensitive)
629 5107 35835 if (index($string, $test) > -1)
641 34 385734 if ($dyn)
646 0 385768 if ($insensitive)
650 9532 376236 if ($char eq $test)
663 0 236059 if ($dyn)
670 0 236059 if ($insensitive)
674 1263 234796 if ($string eq $test)
683 7380 21977 if ($$text =~ /^([a-zA-Z_][a-zA-Z0-9_]+)/)
692 953 40353 if ($$text =~ /^([\\040|\\t]+)/)
701 31952 25870 if ($self->engine->lastcharDeliminator)
702 1845 30107 if ($$text =~ /^((?=\.?\d)\d*(?:\.\d*)?(?:[Ee][+-]?\d+)?)/)
712 26 24966 if ($$text =~ /^('.')/)
721 22154 17050 if ($self->engine->lastcharDeliminator)
722 8 22146 if ($$text =~ /^(0x[0-9a-fA-F]+)/)
732 19924 13442 if ($self->engine->lastcharDeliminator)
733 0 19924 if ($$text =~ /^(0[0-7]+)/)
743 34 4986 if ($$text =~ /^(\\[a|b|e|f|n|r|t|v|'|"|\?])/)
746 0 4986 if ($$text =~ /^(\\x[0-9a-fA-F][0-9a-fA-F]?)/)
749 0 4986 if ($$text =~ /^(\\[0-7][0-7]?[0-7]?)/)
758 33237 29900 if ($self->engine->lastcharDeliminator)
759 314 32923 if ($$text =~ /^([+-]?\d+)/)
772 72262 300240 if ($eng->lastcharDeliminator and $$text =~ /^([^$deliminators]+)/)
775 72262 0 if (defined $l) { }
778 72262 0 if (not $self->keywordscase) { }
783 5777 66485 if (@rl)
797 0 6210 if ($lahead) { }
798 0 0 if ($$text =~ /^\\\n/)
803 14 6196 if ($$text =~ s/^(\\)(\n)/$2/)
826 5299 1364600 if ($dynamic)
830 293912 1075987 if ($reg =~ s/^\^//) { }
310423 765564 elsif ($reg =~ s/^\\(b)//i) { }
831 283489 10423 unless ($eng->linestart)
836 309741 682 if ($1 eq 'b') { }
837 130001 179740 if ($lastchar =~ /\w/)
839 308 374 if ($lastchar =~ /\W/)
850 0 956101 if ($@)
854 127708 828393 if ($insensitive) { }
855 158 127550 if ($sample =~ /$reg/gi)
859 58 100 if ($#-)
874 13000 815393 if ($sample =~ /$reg/g)
878 1160 11840 if ($#-)
893 9828 946273 if (defined $pos and $pos > 0)
906 0 1692912 if ($dynamic)
911 3672 1689240 if ($insensitive)
915 570 1692342 if ($string eq $test)