jpred/lib/PSIBLAST/PSSM/Jnet.pm

   1 package PSIBLAST::PSSM::Jnet;
   2
   3 use strict;
   4 use warnings;
   5 use Carp;
   6
   7 use base qw(PSIBLAST::PSSM);
   8
   9 sub read {
  10         my ($self, $fh) = @_;
  11         local $/ = "\n";
  12
  13         while (<$fh>) {
  14                 chomp;
  15                 $self->add_pos(split);
  16         }
  17 }
  18
  19 1;