| Bio/PopGen/IO.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 14 | 28.5 |
| line | true | false | branch |
|---|---|---|---|
| 111 | 14 | 14 | if ($class =~ /Bio::PopGen::IO::(\S+)/) { } |
| 124 | 0 | 14 | unless $class->_load_format_module($format) |
| 242 | 0 | 0 | unless my $self = $class->new(@_) |
| 287 | 0 | 14 | if ($@) |
| 315 | 0 | 0 | unless $_ = shift() |
| 316 | 0 | 0 | if /csv/i or /\.dat\w$/i |
| 336 | 0 | 0 | unless wantarray |