| line |
true |
false |
branch |
|
133
|
0 |
0 |
unless open FILE, $file |
|
135
|
0 |
0 |
if (index($_, '---RULE---') >= 0) { } |
|
|
0 |
0 |
elsif (index($_, '---DATA---') >= 0) { } |
|
155
|
0 |
0 |
if (index($_, '---RULE---') >= 0) { } |
|
|
0 |
0 |
elsif (index($_, '---DATA---') >= 0) { } |
|
178
|
0 |
0 |
if ($comm) |
|
179
|
0 |
0 |
if ($cmd) |
|
180
|
0 |
0 |
if ($cmd =~ /^\?(.*?)\?$/) |
|
182
|
0 |
0 |
if ($instr =~ /^include\s+(\S+)$/) |
|
193
|
0 |
0 |
unless defined $opt |
|
195
|
0 |
0 |
if ($_ eq 'append' or $_ eq '+') { } |
|
|
0 |
0 |
elsif ($_ eq 'trim') { } |
|
|
0 |
0 |
elsif ($_ eq 'chomp') { } |
|
|
0 |
0 |
elsif ($_ eq 'remove-white') { } |
|
|
0 |
0 |
elsif (/args=(.*)/) { } |
|
213
|
0 |
0 |
if ($prev) { } |
|
214
|
0 |
0 |
unless ref $prev eq 'HCKit::Template::Rule' |
|
216
|
0 |
0 |
if ($append) { } |
|
217
|
0 |
0 |
if (@args) |
|
228
|
0 |
0 |
if (@args) |
|
241
|
0 |
0 |
if ($comm) |
|
242
|
0 |
0 |
if ($sym) { } |
|
247
|
0 |
0 |
if ($cmd =~ /^\?(.*?)\?$/) |
|
249
|
0 |
0 |
if ($instr =~ /^include\s+(\S+)$/) |
|
275
|
0 |
0 |
if ($sym) { } |
|
|
0 |
0 |
elsif ($cdata) { } |
|
288
|
0 |
0 |
if (ref $val eq 'HASH') { } |
|
296
|
0 |
0 |
if ($last < length $body) |
|
299
|
0 |
0 |
%hash ? : |
|
304
|
0 |
0 |
if (defined $$env{$key}) { } |
|
305
|
0 |
0 |
if (ref $$env{$key} eq 'ARRAY') { } |
|
319
|
0 |
0 |
unless defined $tmpl |
|
335
|
0 |
0 |
if ($var) { } |
|
|
0 |
0 |
elsif ($fun) { } |
|
|
0 |
0 |
elsif ($loop) { } |
|
347
|
0 |
0 |
if ($last < length $tmpl) |
|
381
|
0 |
0 |
if ($self->is_delayed($key)) { } |
|
397
|
0 |
0 |
if ($self->is_delayed($key)) { } |
|
412
|
0 |
0 |
if (@args) |
|
414
|
0 |
0 |
if (exists $$env{$p}) |
|
422
|
0 |
0 |
unless defined $aux |
|
436
|
0 |
0 |
if ($1 eq ';') |
|
456
|
0 |
0 |
if ($t =~ /^([\w:-]+)=\"([^\"]*)\"$/) { } |
|
|
0 |
0 |
elsif ($t =~ /^([\w:-]+)+=\'([^\']*)\'$/) { } |
|
|
0 |
0 |
elsif ($t =~ /^([\w:-]+)=([^\'\"\;\s]+)$/) { } |
|
|
0 |
0 |
elsif ($t =~ /^\"(.*)\"$/) { } |
|
|
0 |
0 |
elsif ($t =~ /^\'(.*)\'$/) { } |
|
|
0 |
0 |
elsif ($t eq 'as') { } |
|
|
0 |
0 |
elsif ($t =~ /^(\d+|\d+\.\d+)$/) { } |
|
|
0 |
0 |
elsif ($t =~ /^(\d+)\.\.(\d+)$/) { } |
|
489
|
0 |
0 |
if (defined $$env{$sym}) |
|
503
|
0 |
0 |
unless (ref $val eq 'HASH') |
|
514
|
0 |
0 |
if (defined $val) { } |
|
515
|
0 |
0 |
unless (ref $val) |
|
522
|
0 |
0 |
if ($op) { } |
|
534
|
0 |
0 |
if (defined $val) { } |
|
535
|
0 |
0 |
if (ref $val eq 'HCKit::Template::Rule') { } |
|
|
0 |
0 |
elsif (ref $val) { } |
|
548
|
0 |
0 |
if ($fun) |
|
569
|
0 |
0 |
if (ref $top eq 'ARRAY') { } |
|
581
|
0 |
0 |
if (defined $$env{'foreach:toggle'}) |
|
585
|
0 |
0 |
unless (ref $list eq 'ARRAY') |
|
589
|
0 |
0 |
if ($join and $n++ > 0) |
|
593
|
0 |
0 |
if ($toggle) |
|
594
|
0 |
0 |
$$env{'toggle'} ? : |
|
605
|
0 |
0 |
if ($test) { } |
|
624
|
0 |
0 |
unless $key =~ /^[\w.-]+$/ |
|
635
|
0 |
0 |
unless $key =~ /^[\w-]+$/ |
|
637
|
0 |
0 |
if (defined $bind) |
|
681
|
0 |
0 |
!$arg ? : |
|
688
|
0 |
0 |
$left eq $right ? : |
|
695
|
0 |
0 |
$left || $right ? : |
|
702
|
0 |
0 |
$left && $right ? : |
|
717
|
0 |
0 |
if ($hash and ref $hash eq 'HASH' and exists $$hash{$a}) { } |
|
752
|
0 |
0 |
unless open FILE, $file |
|
768
|
0 |
0 |
if (ref $env eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $env eq 'HASH') { } |