Raw content of Bio::EnsEMBL::Analysis::RunnableDB::ProteinAnnotation::Tmhmm =pod =head1 NAME Bio::EnsEMBL::Analysis::RunnableDB::ProteinAnnotation::Tmhmm =head1 SYNOPSIS my $tmhmm = Bio::EnsEMBL::Analysis::RunnableDB::ProteinAnnotation::Tmhmm->new ( -db => $db, -input_id => $input_id, -analysis => $analysis, ); $tmhmm->fetch_input; # gets sequence from DB $tmhmm->run; $tmhmm->write_output; # writes features to to DB =head1 DESCRIPTION =cut package Bio::EnsEMBL::Analysis::RunnableDB::ProteinAnnotation::Tmhmm; use strict; use vars qw(@ISA); use Bio::EnsEMBL::Analysis::Runnable::ProteinAnnotation::Tmhmm; use Bio::EnsEMBL::Analysis::RunnableDB::ProteinAnnotation; @ISA = qw(Bio::EnsEMBL::Analysis::RunnableDB::ProteinAnnotation); sub fetch_input { my ($self, @args) = @_; $self->SUPER::fetch_input(@args); my $run = Bio::EnsEMBL::Analysis::Runnable::ProteinAnnotation::Tmhmm->new(-query => $self->query, -analysis => $self->analysis, %{$self->parameters_hash} ); $self->runnable($run); } 1;