Merge branch 'JABAWS_Release_2_5' into develop

[jabaws.git] / binaries / src / jpred / lib / FASTA.pm

diff --git a/binaries/src/jpred/lib/FASTA.pm b/binaries/src/jpred/lib/FASTA.pm
new file mode 100644 (file)
index 0000000..ab90d20
--- /dev/null
+++ b/binaries/src/jpred/lib/FASTA.pm
@@ -0,0 +1,30 @@
+package FASTA;
+
+use strict;
+use warnings;
+use Carp;
+
+use base qw(Root Sequence);
+
+sub id {
+  my ( $self, $id ) = @_;
+
+  if ( defined $id ) {
+
+    #warn "'$1' detected in ID, changing to ';'\n" if $id =~ s/([:#])/;/
+  }
+
+  $self->SUPER::id($id);
+}
+
+sub seq {
+  my ( $self, @entries ) = @_;
+
+  for (@entries) {
+    warn "'$1' detected in entry, changing to ';'\n" if s/([:#,])/;/;
+  }
+
+  $self->SUPER::seq(@entries);
+}
+
+1;