| blib/lib/FASTX/Reader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 38 | 62 | 61.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 26 | 2 | 62 | 9 | defined $_[0] and substr($_[0], 0, 1) eq "-" |
| 67 | 2 | 70 | 0 | defined $self->{'filename'} and -d $self->{'filename'} |
| 71 | 2 | 0 | 70 | defined $self->{'filename'} and $self->{'filename'} ne "{{STDIN}}" |
| 139 | 181 | 0 | 0 | defined $self->{'status'} and $self->{'status'} == 0 |
| 241 | 4 | 3 | 0 | defined $self->{'status'} and $self->{'status'} == 0 |
| 261 | 1 | 0 | 5 | substr($header, 0, 1) eq "\@" and substr($check, 0, 1) eq "+" |
| 266 | 1 | 0 | 4 | $seq =~ /^[ACGTNacgtn]+$/u and length $seq == length $qual |
| 299 | 2 | 14 | 0 | defined $self->{'status'} and $self->{'status'} == 0 |
| 319 | 0 | 0 | 14 | substr($header, 0, 1) eq "\@" and substr($check, 0, 1) eq "+" |
| 324 | 0 | 0 | 14 | $seq =~ /^[ACGTNacgtn]+$/u and length $seq == length $qual |
| 467 | 0 | 0 | 0 | $exit == 0 and not $@ |
| line | l | !l | condition |
|---|---|---|---|
| 232 | 42 | 0 | $scalar_read->{'seq'} // "" |
| 42 | 0 | $scalar_read->{'name'} // undef | |
| 42 | 0 | $scalar_read->{'comment'} // undef | |
| 17 | 25 | $scalar_read->{'qual'} // undef |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 46 | 4 | 0 | 2 | $args->{'loadseqs'} eq "name" or $args->{'loadseqs'} eq "names" |
| 1 | 0 | 1 | $args->{'loadseqs'} eq "seq" or $args->{'loadseqs'} eq "seqs" | |
| 1 | 0 | 1 | $args->{'loadseqs'} eq "seq" or $args->{'loadseqs'} eq "seqs" or $args->{'loadseqs'} eq 1 | |
| 154 | 30 | 65 | 6 | substr($self->{'line'}, 0, 1) eq ">" or substr($self->{'line'}, 0, 1) eq "\@" |
| 178 | 76 | 0 | 285 | $c eq ">" or $c eq "\@" |
| 76 | 65 | 220 | $c eq ">" or $c eq "\@" or $c eq "+" | |
| 408 | 4 | 0 | 0 | "$filename" || confess("Unable to read $filename\n$!\n") |