| line |
true |
false |
branch |
|
339
|
0 |
36 |
if ($opts{'dbg-data'}) |
|
344
|
0 |
36 |
if ($opts{'dbg-data-array'}) |
|
375
|
49 |
0 |
if ($name) { } |
|
379
|
49 |
0 |
if (exists $data_href->{$name}) |
|
388
|
0 |
0 |
if (@$data_aref) |
|
395
|
0 |
49 |
unless $data_ref |
|
397
|
16 |
33 |
wantarray ? : |
|
439
|
31 |
5 |
if (exists $stash{'DATA'}) |
|
459
|
27 |
1132 |
if ($line =~ /^\s*__DATA__/) { } |
|
|
0 |
1132 |
elsif ($line =~ /^\s*__END__/) { } |
|
|
37 |
1095 |
elsif ($line =~ /^\s*__#/) { } |
|
473
|
27 |
0 |
if ($line =~ /__DATA__\s*(\S+)/) |
|
511
|
54 |
403 |
if ($line =~ /^\s*\[(\w+)\]/) { } |
|
|
383 |
20 |
elsif ($field) { } |
|
519
|
34 |
20 |
if $field |
|
532
|
20 |
11 |
if ($field) |
|
583
|
7 |
47 |
if ($field eq 'options') { } |
|
|
11 |
36 |
elsif ($field eq 'args') { } |
|
666
|
76 |
199 |
if ($line =~ /^\s*[\-\*\+]\s*([\'\"\w\|\=\%\@\+\{\:\,\}\-\_\>\<\*]+)\s+(.*?)\s*(\[default=([^\]]+)\]){0,1}\s*$/) { } |
|
|
181 |
18 |
elsif ($spec) { } |
|
675
|
36 |
40 |
if (defined $new_default_val) |
|
681
|
58 |
18 |
if ($spec) |
|
702
|
18 |
0 |
if ($spec) |
|
754
|
0 |
0 |
if (exists $stash{'DATA'}) |
|
794
|
0 |
0 |
if (exists $lookup{$data_ref}) |