7 use base qw(Sequence::File);
11 my ( $self, $fh ) = @_;
13 my ( $id, $seq, @seqs );
19 push @seqs, [ $id, $seq ] if $id and $seq;
26 push @seqs, [ $id, $seq ] if $id and $seq;
29 my $new = FASTA->new( id => ${$_}[0] );
30 $new->seq( split //, ${$_}[1] );
31 $self->add_entries($new);
38 my ( $self, $fh ) = @_;
44 my ( $id, @data ) = split /\n/, $_;
45 my $entry = FASTA->new( id => $id );
46 $entry->seq( split //, join( "", @data ) );
48 $self->add_entries($entry);
55 my ( $self, $fh ) = @_;
59 for ( $self->get_entries ) {
63 my $seq = join '', @seq;
65 $seq =~ s/(.{72})/$1\n/g;
67 print $fh ">$id\n$seq\n";