blib/lib/Fortran/F90Namelist.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 70 | 99 | 70.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
713 | 14 | 0 | 121 | defined $href and defined $name1 |
14 | 0 | 121 | defined $href and defined $name1 and $name1 ne '' | |
804 | 25 | 0 | 25 | @val1 and @val2 |
807 | 24 | 1 | 0 | $v1 ne $v2 and not $dups_ok |
line | l | !l | condition |
---|---|---|---|
607 | 0 | 98 | $args{'name'} || '' |
608 | 0 | 98 | $args{'empty'} || '' |
609 | 0 | 98 | $args{'debug'} || 0 |
676 | 20 | 105 | $args{'file'} || '' |
677 | 2 | 123 | $args{'merge'} || 0 |
678 | 4 | 121 | $args{'all'} || 0 |
679 | 2 | 123 | $args{'name'} || '' |
680 | 1 | 124 | $args{'dups_ok'} || '' |
681 | 2 | 123 | $args{'broken'} || 0 |
785 | 1 | 124 | $args{'dups_ok'} || '' |
895 | 8 | 6 | $args{'format'} || 'f90' |
896 | 14 | 0 | $args{'name'} || $self->name || '' |
897 | 2 | 12 | $args{'trim'} || 0 |
898 | 2 | 12 | $args{'double'} || 0 |
899 | 2 | 12 | $args{'oneline'} || 0 |
900 | 2 | 12 | $args{'maxslots'} || 0 |
1100 | 817 | 0 | $stypes{$type} || 'Type inconsistency!' |
1216 | 151 | 988 | $1 || 1 |
1254 | 0 | 0 | $mul || '1' |
1314 | 2 | 0 | shift() || 0 |
1343 | 0 | 0 | shift() || 40 |
1440 | 14 | 0 | shift() || 0 |
1441 | 2 | 12 | shift() || 0 |
1442 | 2 | 12 | shift() || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
583 | 0 | 98 | 0 | ref $proto || $proto |
684 | 3 | 101 | 21 | $args{'text'} || $text |
699 | 0 | 2 | 0 | $name ||= $$self{'NAME'} |
718 | 12 | 109 | 0 | $name ||= $name1 |
784 | 123 | 2 | 0 | $args{'name'} || $$self{'NAME'} |
1248 | 292 | 12 | 835 | $type == 1 or $type == 2 |
1397 | 0 | 0 | 48 | $type == 8 or $type == 9 |
1409 | 5 | 5 | 14 | $type == 1 or $type == 2 |
1418 | 5 | 5 | 14 | $type == 1 or $type == 2 |
1460 | 2 | 0 | 6 | $type == 5 or $type == 6 |
2 | 0 | 6 | $type == 5 or $type == 6 or $type == 7 | |
0 | 0 | 6 | $type == 5 or $type == 6 or $type == 7 or $type == 8 | |
0 | 0 | 6 | $type == 5 or $type == 6 or $type == 7 or $type == 8 or $type == 9 |