| line |
true |
false |
branch |
|
35
|
68 |
3 |
if (defined $value) { } |
|
|
1 |
2 |
elsif ($sigil eq '$') { } |
|
38
|
52 |
16 |
if ($sigil eq '$') { } |
|
|
8 |
8 |
elsif ($sigil eq '@') { } |
|
|
8 |
0 |
elsif ($sigil eq '%') { } |
|
39
|
50 |
2 |
if (not $ref) { } |
|
|
1 |
1 |
elsif ($ref eq 'ARRAY') { } |
|
|
1 |
0 |
elsif ($ref eq 'HASH') { } |
|
51
|
1 |
7 |
if (not $ref) { } |
|
|
6 |
1 |
elsif ($ref eq 'ARRAY') { } |
|
|
1 |
0 |
elsif ($ref eq 'HASH') { } |
|
61
|
1 |
7 |
if ($ref eq 'ARRAY' and @$value % 2 == 0) { } |
|
|
6 |
1 |
elsif ($ref eq 'HASH') { } |
|
81
|
3 |
6 |
ref $pkg ? : |
|
91
|
10 |
2 |
$template =~ /\n/ ? : |
|
122
|
0 |
9 |
unless $sub |
|
133
|
31 |
0 |
if (defined $value) { } |
|
152
|
36 |
0 |
if (defined $value) { } |
|
183
|
59 |
10 |
if (exists $$hash{$name}) |
|
190
|
0 |
59 |
unless defined $value |
|
272
|
31 |
36 |
if (defined $cmd) { } |
|
273
|
18 |
13 |
if (@stash) |
|
279
|
10 |
21 |
if (substr($cmd, 0, 3) eq 'end') { } |
|
|
10 |
11 |
elsif ($self->get_command("end$cmd")) { } |
|
281
|
0 |
10 |
if defined $startcmd and $startcmd ne $command |
|
294
|
0 |
9 |
if $command |
|
295
|
7 |
2 |
if @stash |
|
306
|
32 |
35 |
unless $line =~ s/$$self{'command_start_pattern'}// |
|
310
|
13 |
22 |
unless defined $arg |
|
313
|
4 |
31 |
unless $cmdline |
|
317
|
24 |
7 |
if (not $ref) { } |
|
|
7 |
0 |
elsif ($ref eq 'CODE') { } |
|
347
|
18 |
5 |
if (ref $hash eq 'HASH') { } |
|
368
|
30 |
6 |
if ($ref eq 'SCALAR') { } |
|
|
1 |
5 |
elsif ($ref eq 'ARRAY') { } |
|
|
1 |
4 |
elsif ($ref eq 'HASH') { } |
|
369
|
29 |
1 |
defined $$data ? : |
|
419
|
8 |
0 |
if length $$self{'command_end'} |
|
438
|
0 |
2 |
unless defined $in |
|
453
|
0 |
11 |
unless defined $sigil |
|
457
|
7 |
8 |
if exists $$self{'stack'}[$i]{$name} |
|
460
|
4 |
7 |
unless $i < @{$$self{'stack'};} |
|
462
|
11 |
0 |
if ($sigil eq '$') { } |
|
|
0 |
0 |
elsif ($sigil eq '@') { } |
|
|
0 |
0 |
elsif ($sigil eq '%') { } |
|
463
|
10 |
1 |
@val == 1 ? : |
|
489
|
22 |
83 |
if ($token =~ /^/) { } |
|
|
22 |
61 |
elsif ($token =~ /^\s*/) { } |
|
|
22 |
39 |
elsif (defined $name) { } |
|
490
|
0 |
22 |
if (defined $name) |
|
495
|
8 |
14 |
if $$self{'keep_sections'} |
|
498
|
0 |
22 |
if ($name ne $1) |
|
503
|
8 |
14 |
if $$self{'keep_sections'} |