view release on metacpan or  search on metacpan

lib/Bio/SearchIO/hmmer.pm  view on Meta::CPAN

use base qw(Bio::SearchIO);

sub new {
  my ( $caller, @args ) = @_;
  my $class = ref($caller) || $caller;

  my $self = $class->SUPER::new(@args);
  $self->_initialize(@args);

  # Try to guess the hmmer format version if it's not specified.
  my $version;
  my %param = @args;

  @param{ map { lc $_ } keys %param } = values %param; # lowercase keys

  # If the caller specified a version, go for that
  if (defined($param{"-version"})) {
    $version = $param{"-version"};
  } else {