| line |
true |
false |
branch |
|
599
|
0 |
98 |
if (@argv) |
|
600
|
0 |
0 |
if (ref $argv[0] eq 'HASH') { } |
|
611
|
0 |
98 |
if ($empty) |
|
666
|
1 |
124 |
if (ref $args[0] eq 'HASH') { } |
|
669
|
102 |
22 |
if (@_ == 1) { } |
|
685
|
20 |
105 |
unless (defined $text) |
|
686
|
0 |
20 |
unless $file ne '' |
|
689
|
2 |
18 |
if (ref $file eq 'GLOB') { } |
|
692
|
0 |
18 |
unless open FH, "< $file" |
|
698
|
2 |
123 |
if ($merge) { } |
|
713
|
121 |
14 |
if (defined $href and defined $name1 and $name1 ne '') { } |
|
725
|
109 |
12 |
unless $all |
|
737
|
10 |
113 |
if $name eq '' |
|
739
|
0 |
113 |
if ($debug) |
|
766
|
4 |
121 |
if (ref $nl2 eq 'Fortran::F90Namelist') { } |
|
|
121 |
0 |
elsif (ref $nl2 eq 'ARRAY') { } |
|
779
|
121 |
4 |
if (ref $args[0] eq 'HASH') { } |
|
792
|
0 |
125 |
if ($debug) |
|
801
|
25 |
809 |
if (defined $$hashref{$slot}) { } |
|
807
|
0 |
25 |
if ($v1 ne $v2 and not $dups_ok) |
|
827
|
0 |
125 |
if ($debug) |
|
845
|
5 |
175 |
if (@_) |
|
890
|
0 |
14 |
if (ref $argv[0] eq 'HASH') { } |
|
901
|
2 |
12 |
if $maxslots |
|
904
|
0 |
14 |
unless ($$self{'PARSED_'}) |
|
939
|
2 |
12 |
if ($oneline) { } |
|
947
|
7 |
7 |
if (lc $format eq 'f90') { } |
|
|
7 |
0 |
elsif (lc $format eq 'idl') { } |
|
972
|
1 |
6 |
if ($oneline) |
|
994
|
14 |
0 |
if (@slots) |
|
1013
|
0 |
0 |
if (@_) |
|
1049
|
14 |
123 |
unless $$nameref = extract_nl_name($textref, $debug) |
|
1057
|
2 |
121 |
if ($broken) |
|
1062
|
0 |
940 |
if $debug |
|
1064
|
819 |
121 |
if ($text =~ s/^($id)(\([0-9, \t]+\))?\s*=\s*//s) { } |
|
|
121 |
0 |
elsif ($text =~ s[\s*(/|\$end)\s*][]) { } |
|
1068
|
15 |
804 |
if (defined $2) |
|
1074
|
0 |
819 |
if ($debug) |
|
1082
|
817 |
2 |
if (@values) { } |
|
1099
|
0 |
817 |
if $debug |
|
1107
|
0 |
121 |
unless ($status == 7) |
|
1114
|
0 |
121 |
if $debug |
|
1135
|
0 |
137 |
if $debug |
|
1139
|
0 |
137 |
if $debug |
|
1141
|
123 |
14 |
if ($text =~ s/^(?:&|\$)($id)//) { } |
|
1144
|
14 |
0 |
if ($text eq '') { } |
|
1145
|
0 |
14 |
if $debug |
|
1155
|
0 |
123 |
if ($debug) |
|
1188
|
0 |
819 |
if ($debug) |
|
1196
|
0 |
819 |
if ($type == 0) |
|
1219
|
0 |
1139 |
if ($debug) |
|
1228
|
4 |
1135 |
if $valtype > $type |
|
1229
|
0 |
1139 |
if ($debug) |
|
1237
|
292 |
847 |
if ($type == 1) |
|
1241
|
12 |
1127 |
if ($type == 2) |
|
1248
|
304 |
835 |
if ($type == 1 or $type == 2) |
|
1253
|
0 |
1139 |
if $rest eq '!' |
|
1254
|
0 |
1139 |
if $debug |
|
1292
|
395 |
1563 |
if ($text =~ /^\s*'/) { } |
|
|
24 |
1539 |
elsif ($text =~ /^\s*"/) { } |
|
|
116 |
1423 |
elsif ($text =~ /^\s*\(\s*$numeric_e\s*,/) { } |
|
|
115 |
1308 |
elsif ($text =~ /^\s*\(/) { } |
|
|
212 |
1096 |
elsif ($text =~ /^\s*(T|F|.(true|false).)/i) { } |
|
|
369 |
727 |
elsif ($text =~ /^\s*[+-]?[0-9]+(\s|,|!|$)/) { } |
|
|
409 |
318 |
elsif ($text =~ /^\s*$float(\s|,|!|$)/) { } |
|
|
192 |
126 |
elsif ($text =~ /^\s*$numeric_e(\s|,|!|$)/) { } |
|
|
126 |
0 |
elsif ($text =~ /^\s*$numeric_d(\s|,|!|$)/) { } |
|
1331
|
2 |
0 |
if ($die) { } |
|
1348
|
0 |
0 |
if $length < $oldlen |
|
1366
|
24 |
24 |
if ($format eq 'f90') { } |
|
|
24 |
0 |
elsif ($format eq 'idl') { } |
|
1375
|
14 |
34 |
if (@vals > 1) { } |
|
1397
|
0 |
48 |
if ($type == 8 or $type == 9) |
|
1404
|
24 |
24 |
if ($format eq 'f90') { } |
|
|
24 |
0 |
elsif ($format eq 'idl') { } |
|
1409
|
10 |
14 |
if ($type == 1 or $type == 2) |
|
1418
|
0 |
24 |
if ($type == 3) { } |
|
|
10 |
14 |
elsif ($type == 1 or $type == 2) { } |
|
1444
|
0 |
14 |
unless $$obj{'NSLOTS'} |
|
1454
|
8 |
40 |
if ($trim) |
|
1459
|
8 |
40 |
if ($double) |
|
1460
|
0 |
6 |
if ($type == 5 or $type == 6 or $type == 7 or $type == 8 or $type == 9) |
|
1491
|
12 |
2 |
unless $maxslots > 0 |
|
1499
|
8 |
0 |
if @slots |
|
1514
|
7 |
7 |
if ($format eq 'f90') { } |
|
|
7 |
0 |
elsif ($format eq 'idl') { } |