fasta: dump_fasta

pedros · Mar 29, 2011 · 8ea06f1 · 8ea06f1
1 parent fdd2fee
commit 8ea06f1
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/lib/Fasta.pm b/lib/Fasta.pm
@@ -11,7 +11,7 @@ use autodie;
 require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(convert_file convert bisulfite_convert);
-our @EXPORT = qw(slurp_fasta format_fasta count_fasta count_fasta_complete);
+our @EXPORT = qw(slurp_fasta format_fasta count_fasta count_fasta_complete dump_fasta);
 
 =head1 EXPORTED FUNCTIONS
 
@@ -187,6 +187,14 @@ sub format_fasta{
     return (join "\n", @buffer) . "\n";
 }
 
+sub dump_fasta{
+    my ($fasta) = @_;
+
+    for my $seq (sort keys %$fasta) {
+        say format_fasta(uc $seq, $fasta->{$seq});
+    }
+}
+
 1;