| blib/lib/SNA/Network/Filter/Guess.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 0 | 3 | unless open my $GDF_FILE, '<', $filename |
| 60 | 3 | 0 | if $line =~ /^nodedef>/ |
| 71 | 3 | 12 | if $line =~ /^edgedef> (.+)$/ |
| 94 | 2 | 18 | unless $line =~ /\s*\w+,\s*\w+/ |
| 105 | 0 | 3 | unless close $GDF_FILE |
| 137 | 0 | 1 | unless $params{'filename'} |
| 141 | 0 | 1 | unless open my $GDF_FILE, '>', $params{'filename'} |
| 165 | 0 | 1 | unless close $GDF_FILE |