| line |
true |
false |
branch |
|
376
|
0 |
8 |
if (@argv) |
|
377
|
0 |
0 |
if (ref $argv[0] eq 'HASH') { } |
|
425
|
0 |
20 |
if (ref $args[0] eq 'HASH') { } |
|
428
|
4 |
16 |
if (@_ == 1) { } |
|
440
|
19 |
1 |
unless ($append) |
|
448
|
15 |
5 |
if ($text eq '') |
|
449
|
0 |
15 |
unless $file ne '' |
|
452
|
2 |
13 |
if (ref $file eq 'GLOB') { } |
|
455
|
0 |
13 |
unless open FH, "< $file" |
|
463
|
0 |
78 |
unless my $nl = 'Fortran::F90Namelist'->new |
|
465
|
0 |
78 |
if $$self{'DEBUG_'} |
|
468
|
69 |
9 |
if (defined $name and $name ne '') |
|
513
|
1 |
2 |
unless defined $pos |
|
515
|
0 |
3 |
unless ref $nlobj eq 'Fortran::F90Namelist' |
|
548
|
1 |
3 |
if (ref $arg1 eq 'Fortran::F90Namelist') { } |
|
|
2 |
1 |
elsif ($arg1 =~ /^[0-9]+$/) { } |
|
557
|
0 |
4 |
unless delete $$self{'DATA'}{$nlname} |
|
591
|
0 |
9 |
if ($n < 0 or $n >= $nlists) |
|
611
|
0 |
1 |
if ($self->nlists < 1) { } |
|
695
|
0 |
0 |
if (@_) |