| blib/lib/Bio/CUA/SeqIO.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 55 | 0 | 8 | unless $self->_initialize(@args) |
| 67 | 0 | 8 | unless defined $file |
| 71 | 0 | 8 | unless my $fh = $self->_open_file($file) |
| 94 | 0 | 112 | unless $fh |
| 96 | 8 | 104 | if eof $fh |
| 98 | 0 | 104 | if tell $fh < 0 |
| 105 | 96 | 8 | if exists $$self{'_last_defline'} |
| 109 | 0 | 3696 | if /^\s*$/ or /^#/ |
| 112 | 104 | 3592 | if (/^>/) |
| 114 | 96 | 8 | if ($defLine) { } |
| 130 | 0 | 104 | unless $moreData |