Branch Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Template.pm
Criterion Covered Total %
branch 192 234 82.0


line true false branch
21 231 0 unless (defined $debug)
23 100 131 unless (defined $substitutions)
25 94 137 unless (defined $formattable)
49 143 88 unless (defined $engine)
57 218 220497 if (@_)
63 218 23286 if (@_)
69 1219 0 if (defined $c)
77 1195 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 218 1392098 if (@_)
185 696049 0 if (exists $self->contextdata->{$context}) { }
187 506731 189318 if (exists $c->{$item}) { }
200 7675 38004 if ($context =~ /^#pop/i) { }
28152 9852 elsif ($context =~ /^#stay/i) { }
6 9846 elsif ($context =~ /^##(.+)/) { }
216 0 0 if (@_)
222 0 0 if (@_)
228 218 372563 if (@_)
234 231 2319220 if (@_)
242 196 38 if ($line =~ /^\s*$/ and $string =~ /^[^\s]/)
250 0 55847 if (@_)
261 222931 6 if (defined $top) { }
263 11828 211103 if ($text =~ s/^(\n)//) { }
266 1643 10185 if (defined $e)
274 0 11828 if (defined $b)
280 168740 42363 unless ($result)
282 1435 167305 if (defined $f) { }
307 0 55847 unless (defined $t)
313 9734 314296 if (exists $s->{$k}) { }
320 55847 0 if (exists $rt->{$t}) { }
335 22906 0 if (defined $plug)
338 22906 0 if (defined $call) { }
350 81919 0 if (defined $call) { }
360 260 176 if ($self->engine eq $self)
367 218 72284 if (@_)
385 0 21 if ($name =~ s/^(\d)//)
402 24123 814432 if ($l eq '')
409 310009 256111 if ($self->linestart or $self->lastchar =~ /$deliminators/)
417 232311 1919599 if (@_)
423 48445 811598 if ($self->linesegment eq '')
431 0 72954 if (@_)
437 116 108 if (@_)
445 669 1 if (@_) { }
456 0 2 if (defined $top) { }
469 234 42456 if ($fnspace)
470 38 196 unless ($eng->firstnonspace($$text))
474 284 42368 if (defined $column)
475 51 233 if ($column ne $eng->column)
479 41364 1237 unless ($lahead)
482 32772 8592 if (defined $attr) { }
498 90 22938 unless (exists $plugs->{$language})
501 88 2 if (defined $lang_plug)
504 0 90 unless (defined $modname)
510 88 2 if (defined $plug) { }
516 23026 2 if (exists $plugs->{$language})
531 56065 63803 if (@_)
538 14 220483 unless defined $ch
540 220483 0 if ($ch ne '')
548 40039 275635 if (@_)
555 55841 7962 if ($parse ne '')
566 40039 180458 if (defined $attr and $attr ne $self->snippetAttribute)
575 376 257538 if (@_)
600 0 0 if (Dumper($h) eq Dumper($state))
618 0 55847 if (@_)
629 0 40943 if ($insensitive)
633 5108 35835 if (index($string, $test) > -1)
645 34 385782 if ($dyn)
650 0 385816 if ($insensitive)
654 9535 376281 if ($char eq $test)
667 0 236078 if ($dyn)
674 0 236078 if ($insensitive)
678 1263 234815 if ($string eq $test)
687 7405 22017 if ($$text =~ /^([a-zA-Z_][a-zA-Z0-9_]+)/)
696 955 40420 if ($$text =~ /^([\\040|\\t]+)/)
705 31956 25873 if ($self->engine->lastcharDeliminator)
706 1845 30111 if ($$text =~ /^((?=\.?\d)\d*(?:\.\d*)?(?:[Ee][+-]?\d+)?)/)
716 26 24966 if ($$text =~ /^('.')/)
725 22158 17053 if ($self->engine->lastcharDeliminator)
726 8 22150 if ($$text =~ /^(0x[0-9a-fA-F]+)/)
736 19928 13445 if ($self->engine->lastcharDeliminator)
737 0 19928 if ($$text =~ /^(0[0-7]+)/)
747 34 4986 if ($$text =~ /^(\\[a|b|e|f|n|r|t|v|'|"|\?])/)
750 0 4986 if ($$text =~ /^(\\x[0-9a-fA-F][0-9a-fA-F]?)/)
753 0 4986 if ($$text =~ /^(\\[0-7][0-7]?[0-7]?)/)
762 33241 29903 if ($self->engine->lastcharDeliminator)
763 314 32927 if ($$text =~ /^([+-]?\d+)/)
776 72284 300279 if ($eng->lastcharDeliminator and $$text =~ /^([^$deliminators]+)/)
779 72284 0 if (defined $l) { }
782 0 72284 if ($self->keywordscase) { }
787 5778 66506 if (@rl)
801 0 6210 if ($lahead) { }
802 0 0 if ($$text =~ /^\\\n/)
807 14 6196 if ($$text =~ s/^(\\)(\n)/$2/)
830 5299 1364762 if ($dynamic)
834 293923 1076138 if ($reg =~ s/^\^//) { }
310453 765685 elsif ($reg =~ s/^\\(b)//i) { }
835 283496 10427 unless ($eng->linestart)
840 309771 682 if ($1 eq 'b') { }
841 130011 179760 if ($lastchar =~ /\w/)
843 308 374 if ($lastchar =~ /\W/)
854 0 956246 if ($@)
858 127708 828538 if ($insensitive) { }
859 158 127550 if ($sample =~ /$reg/gi)
863 58 100 if ($#-)
878 13007 815531 if ($sample =~ /$reg/g)
882 1161 11846 if ($#-)
897 9835 946411 if (defined $pos and $pos > 0)
910 0 1692932 if ($dynamic)
915 3672 1689260 if ($insensitive)
919 570 1692362 if ($string eq $test)