- my ($self, $fh) = @_;
-
- my ($id, $seq, @seqs);
- while (<$fh>) {
- chomp;
- next if /^\s+$/;
-
- if (s/^>//) {
- push @seqs, [ $id, $seq ] if $id and $seq;
- $seq = undef;
- $id = $_;
- }
- else { $seq .= $_ }
- }
- push @seqs, [ $id, $seq ] if $id and $seq;
-
- for (@seqs) {
- my $new = FASTA->new(id => ${$_}[0]);
- $new->seq(split //, ${$_}[1]);
- $self->add_entries($new);
- }
-
- 1;
+ my ( $self, $fh ) = @_;
+
+ my ( $id, $seq, @seqs );
+ while (<$fh>) {
+ chomp;
+ next if /^\s+$/;
+
+ if (s/^>//) {
+ push @seqs, [ $id, $seq ] if $id and $seq;
+ $seq = undef;
+ $id = $_;
+ } else {
+ $seq .= $_;
+ }
+ }
+ push @seqs, [ $id, $seq ] if $id and $seq;
+
+ for (@seqs) {
+ my $new = FASTA->new( id => ${$_}[0] );
+ $new->seq( split //, ${$_}[1] );
+ $self->add_entries($new);
+ }
+
+ 1;