| blib/lib/SNA/Network/Filter/Pajek.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 55 | 0 | 14 | unless open my $PAJEK_FILE, '<', $filename |
| 62 | 14 | 0 | if $line =~ /\*Vertices/ |
| 68 | 14 | 436 | if $line =~ /\*Arcs/ |
| 70 | 10 | 426 | unless $line =~ /\s*(\d+)\s*(.*)/ |
| 79 | 11 | 2987 | unless $line =~ /\s*(\d+)\s*(\d+)\s*(\d+)/ |
| 88 | 0 | 14 | unless close $PAJEK_FILE |
| 116 | 0 | 1 | unless open my $PAJEK_FILE, '>', $filename |
| 130 | 0 | 1 | unless close $PAJEK_FILE |