| 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 |
0 |
if (@_) |
|
63
|
218 |
114 |
if (@_) |
|
69
|
13173 |
0 |
if (defined $c) |
|
77
|
1199 |
11974 |
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 |
0 |
if (@_) |
|
185
|
696215 |
0 |
if (exists $self->{'contextdata'}{$context}) { } |
|
187
|
506855 |
189360 |
if (exists $c->{$item}) { } |
|
200
|
7681 |
38014 |
if ($context =~ /^#pop/i) { } |
|
|
28158 |
9856 |
elsif ($context =~ /^#stay/i) { } |
|
|
6 |
9850 |
elsif ($context =~ /^##(.+)/) { } |
|
216
|
0 |
0 |
if (@_) |
|
222
|
0 |
0 |
if (@_) |
|
228
|
218 |
0 |
if (@_) |
|
234
|
231 |
255203 |
if (@_) |
|
242
|
196 |
38 |
if ($line =~ /^\s*$/ and $string =~ /^[^\s]/) |
|
250
|
0 |
55851 |
if (@_) |
|
261
|
222989 |
6 |
if (defined $top) { } |
|
263
|
11828 |
211161 |
if ($text =~ s/^(\n)//) { } |
|
266
|
1645 |
10183 |
if (defined $e) |
|
274
|
0 |
11828 |
if (defined $b) |
|
280
|
168786 |
42375 |
unless ($result) |
|
282
|
1437 |
167349 |
if (defined $f) { } |
|
307
|
0 |
55851 |
unless (defined $t) |
|
313
|
9734 |
314296 |
if (exists $s->{$k}) { } |
|
320
|
55851 |
0 |
if (exists $rt->{$t}) { } |
|
335
|
22906 |
0 |
if (defined $plug) |
|
338
|
22906 |
0 |
if (defined $call) { } |
|
350
|
81937 |
0 |
if (defined $call) { } |
|
360
|
260 |
176 |
if ($self->engine eq $self) |
|
367
|
218 |
0 |
if (@_) |
|
385
|
0 |
21 |
if ($name =~ s/^(\d)//) |
|
402
|
24123 |
814504 |
if ($l eq '') |
|
409
|
310033 |
256111 |
if ($self->linestart or $self->lastchar =~ /$deliminators/) |
|
417
|
0 |
860067 |
if (@_) |
|
423
|
48445 |
811622 |
if ($self->linesegment eq '') |
|
431
|
0 |
0 |
if (@_) |
|
437
|
116 |
0 |
if (@_) |
|
445
|
669 |
1 |
if (@_) { } |
|
456
|
0 |
2 |
if (defined $top) { } |
|
469
|
234 |
42468 |
if ($fnspace) |
|
470
|
38 |
196 |
unless ($eng->firstnonspace($$text)) |
|
474
|
284 |
42380 |
if (defined $column) |
|
475
|
51 |
233 |
if ($column ne $eng->column) |
|
479
|
41376 |
1237 |
unless ($lahead) |
|
482
|
32784 |
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
|
56069 |
63809 |
if (@_) |
|
538
|
14 |
220539 |
unless defined $ch |
|
540
|
220539 |
0 |
if ($ch ne '') |
|
548
|
0 |
0 |
if (@_) |
|
555
|
55845 |
7964 |
if ($parse ne '') |
|
566
|
40045 |
180508 |
if (defined $attr and $attr ne $self->{'snippetattribute'}) |
|
575
|
376 |
0 |
if (@_) |
|
600
|
0 |
0 |
if (Dumper($h) eq Dumper($state)) |
|
618
|
0 |
0 |
if (@_) |
|
629
|
0 |
40969 |
if ($insensitive) |
|
633
|
5110 |
35859 |
if (index($string, $test) > -1) |
|
645
|
34 |
385742 |
if ($dyn) |
|
650
|
0 |
385776 |
if ($insensitive) |
|
654
|
9537 |
376239 |
if ($char eq $test) |
|
667
|
0 |
236118 |
if ($dyn) |
|
674
|
0 |
236118 |
if ($insensitive) |
|
678
|
1263 |
234855 |
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 |
300303 |
if ($eng->lastcharDeliminator and $$text =~ /^([^$deliminators]+)/) |
|
779
|
72284 |
0 |
if (defined $l) { } |
|
782
|
6238 |
66046 |
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 |
1364798 |
if ($dynamic) |
|
834
|
293923 |
1076174 |
if ($reg =~ s/^\^//) { } |
|
|
310501 |
765673 |
elsif ($reg =~ s/^\\(b)//i) { } |
|
835
|
283496 |
10427 |
unless ($eng->linestart) |
|
840
|
309819 |
682 |
if ($1 eq 'b') { } |
|
841
|
130011 |
179808 |
if ($lastchar =~ /\w/) |
|
843
|
308 |
374 |
if ($lastchar =~ /\W/) |
|
851
|
0 |
956282 |
if ($@) |
|
856
|
127708 |
828574 |
if ($insensitive) { } |
|
857
|
158 |
127550 |
if ($sample =~ /$reg/i) |
|
859
|
158 |
0 |
if ($#-) |
|
866
|
13015 |
815559 |
if ($sample =~ /$reg/) |
|
868
|
13015 |
0 |
if ($#-) |
|
875
|
9843 |
946439 |
if (defined $match and $match ne '') |
|
887
|
0 |
1692834 |
if ($dynamic) |
|
892
|
3672 |
1689162 |
if ($insensitive) |
|
896
|
570 |
1692264 |
if ($string eq $test) |