| line |
true |
false |
branch |
|
21
|
238 |
0 |
unless (defined $debug) |
|
23
|
107 |
131 |
unless (defined $substitutions) |
|
25
|
96 |
142 |
unless (defined $formattable) |
|
49
|
149 |
89 |
unless (defined $engine) |
|
57
|
225 |
0 |
if (@_) |
|
63
|
225 |
114 |
if (@_) |
|
69
|
13284 |
0 |
if (defined $c) |
|
77
|
1203 |
12081 |
if (@o) |
|
86
|
5383 |
0 |
if (defined $s->[1]) { } |
|
89
|
5383 |
0 |
if (defined $c) { } |
|
90
|
5383 |
0 |
if (defined $c->[$num]) { } |
|
146
|
48 |
5335 |
if (defined $mode) { } |
|
147
|
48 |
0 |
if ($string =~ s/^(\d)//) |
|
149
|
0 |
48 |
if ($string ne "") |
|
155
|
5335 |
10603 |
if ($string =~ s/^([^\%]*)\%(\d)//) { } |
|
157
|
5335 |
0 |
if ($r ne '') { } |
|
179
|
225 |
0 |
if (@_) |
|
185
|
654277 |
0 |
if (exists $self->{'contextdata'}{$context}) { } |
|
187
|
483841 |
170436 |
if (exists $c->{$item}) { } |
|
200
|
7769 |
49424 |
if ($context =~ /^#pop/i) { } |
|
|
39399 |
10025 |
elsif ($context =~ /^#stay/i) { } |
|
|
6 |
10019 |
elsif ($context =~ /^##(.+)/) { } |
|
216
|
0 |
0 |
if (@_) |
|
222
|
0 |
0 |
if (@_) |
|
228
|
225 |
0 |
if (@_) |
|
234
|
239 |
233866 |
if (@_) |
|
242
|
196 |
41 |
if ($line =~ /^\s*$/ and $string =~ /^[^\s]/) |
|
250
|
0 |
56232 |
if (@_) |
|
261
|
215523 |
6 |
if (defined $top) { } |
|
263
|
11828 |
203695 |
if ($text =~ s/^(\n)//) { } |
|
266
|
1645 |
10183 |
if (defined $e) |
|
274
|
0 |
11828 |
if (defined $b) |
|
280
|
149928 |
53767 |
unless ($result) |
|
282
|
1503 |
148425 |
if (defined $f) { } |
|
307
|
0 |
56232 |
unless (defined $t) |
|
313
|
9734 |
315181 |
if (exists $s->{$k}) { } |
|
320
|
56232 |
0 |
if (exists $rt->{$t}) { } |
|
335
|
17033 |
0 |
if (defined $plug) |
|
338
|
17033 |
0 |
if (defined $call) { } |
|
350
|
80046 |
0 |
if (defined $call) { } |
|
360
|
273 |
178 |
if ($self->engine eq $self) |
|
367
|
225 |
0 |
if (@_) |
|
385
|
0 |
22 |
if ($name =~ s/^(\d)//) |
|
402
|
18724 |
746116 |
if ($l eq "") |
|
409
|
272041 |
236952 |
if ($self->linestart or $self->lastchar =~ /$deliminators/) |
|
417
|
9 |
801713 |
if (@_) |
|
423
|
40419 |
761294 |
if ($self->linesegment eq "") |
|
431
|
0 |
0 |
if (@_) |
|
437
|
116 |
0 |
if (@_) |
|
445
|
694 |
1 |
if (@_) { } |
|
456
|
0 |
2 |
if (defined $top) { } |
|
469
|
237 |
53901 |
if ($fnspace) |
|
470
|
41 |
196 |
unless ($eng->firstnonspace($$text)) |
|
474
|
286 |
53811 |
if (defined $column) |
|
475
|
52 |
234 |
if ($column ne $eng->column) |
|
479
|
52775 |
1270 |
unless ($lahead) |
|
482
|
33109 |
19666 |
if (defined $attr) { } |
|
498
|
91 |
17064 |
unless (exists $plugs->{$language}) |
|
501
|
89 |
2 |
if (defined $lang_plug) |
|
504
|
0 |
91 |
unless (defined $modname) |
|
510
|
89 |
2 |
if (defined $plug) { } |
|
516
|
17153 |
2 |
if (exists $plugs->{$language}) |
|
531
|
56481 |
64219 |
if (@_) |
|
538
|
14 |
213014 |
unless defined $ch |
|
540
|
213014 |
0 |
if ($ch ne "") |
|
548
|
0 |
0 |
if (@_) |
|
555
|
56226 |
7993 |
if ($parse ne "") |
|
566
|
40424 |
172604 |
if (defined $attr and $attr ne $self->{'snippetattribute'}) |
|
575
|
389 |
0 |
if (@_) |
|
600
|
0 |
0 |
if (Dumper($h) eq Dumper($state)) |
|
618
|
0 |
0 |
if (@_) |
|
629
|
0 |
37571 |
if ($insensitive) |
|
633
|
5179 |
32392 |
if (index($string, $test) != -1) |
|
645
|
48 |
333314 |
if ($dyn) |
|
650
|
0 |
333362 |
if ($insensitive) |
|
654
|
9591 |
323771 |
if ($char eq $test) |
|
667
|
0 |
221495 |
if ($dyn) |
|
674
|
0 |
221495 |
if ($insensitive) |
|
678
|
1263 |
220232 |
if ($string eq $test) |
|
687
|
7537 |
9272 |
if ($$text =~ /^([a-zA-Z_][a-zA-Z0-9_]+)/) |
|
696
|
11911 |
21949 |
if ($$text =~ /^([\040\t]+)/) |
|
705
|
25619 |
23824 |
if ($self->engine->lastcharDeliminator) |
|
706
|
1912 |
23707 |
if ($$text =~ /^((?=\.?\d)\d*(?:\.\d*)?(?:[Ee][+-]?\d+)?)/) |
|
716
|
26 |
22714 |
if ($$text =~ /^('.')/) |
|
725
|
15995 |
15146 |
if ($self->engine->lastcharDeliminator) |
|
726
|
8 |
15987 |
if ($$text =~ /^(0x[0-9a-fA-F]+)/) |
|
736
|
13765 |
11538 |
if ($self->engine->lastcharDeliminator) |
|
737
|
0 |
13765 |
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
|
26837 |
27884 |
if ($self->engine->lastcharDeliminator) |
|
763
|
314 |
26523 |
if ($$text =~ /^([+-]?\d+)/) |
|
776
|
73262 |
275123 |
if ($eng->lastcharDeliminator and $$text =~ /^([^$deliminators]+)/) |
|
779
|
73262 |
0 |
if (defined $l) { } |
|
782
|
6238 |
67024 |
if ($self->{'keywordscase'}) { } |
|
787
|
5832 |
67430 |
if (@rl) |
|
801
|
0 |
6210 |
if ($lahead) { } |
|
802
|
0 |
0 |
if ($$text =~ /^\\\n/) |
|
807
|
14 |
6196 |
if ($$text =~ s/^(\\)(\n)/$2/) |
|
830
|
5335 |
1240425 |
if ($dynamic) |
|
834
|
292720 |
953040 |
if ($reg =~ s/^\^//) { } |
|
|
285834 |
667206 |
elsif ($reg =~ s/^\\(b)//i) { } |
|
835
|
282288 |
10432 |
unless ($eng->linestart) |
|
840
|
285152 |
682 |
if ($1 eq 'b') { } |
|
841
|
125727 |
159425 |
if ($lastchar =~ /\w/) |
|
843
|
308 |
374 |
if ($lastchar =~ /\W/) |
|
851
|
0 |
837437 |
if ($@) |
|
856
|
122076 |
715361 |
if ($insensitive) { } |
|
857
|
158 |
121918 |
if ($sample =~ /$reg/i) |
|
859
|
158 |
0 |
if ($#-) |
|
866
|
13126 |
702235 |
if ($sample =~ /$reg/) |
|
868
|
13126 |
0 |
if ($#-) |
|
875
|
9947 |
827490 |
if (defined $match and $match ne "") |
|
887
|
0 |
1677490 |
if ($dynamic) |
|
892
|
3672 |
1673818 |
if ($insensitive) |
|
896
|
570 |
1676920 |
if ($string eq $test) |