Bio::EnsEMBL::Analysis::RunnableDB::Finished
Blast
Toolbar
Summary
Bio::EnsEMBL::Analysis::RunnableDB::Finished::Blast
Package variables
No package variables defined.
Included modules
Inherit
( ( ( (
Synopsis
my $db = Bio::EnsEMBL::DBLoader->new($locator);
my $blast = Bio::EnsEMBL::Analysis::RunnableDB::Blast->new (
-db => $db,
-input_id => $input_id
-analysis => $analysis );
$blast->fetch_input();
$blast->run();
$blast->output();
$blast->write_output(); #writes to DB
Description
This object wraps Bio::EnsEMBL::Analysis::Runnable::Blast to add
functionality for reading and writing to databases.
The appropriate Bio::EnsEMBL::Analysis object must be passed for
extraction of appropriate parameters. A Bio::EnsEMBL::Pipeline::DBSQL::Obj is
required for databse access.
Methods
Methods description
Title : db_version_searched
[ distinguished from Runnable::*::get_db_version() ]
Useage : $self->db_version_searched('version string')
$obj->db_version_searched()
Function: Get/Set a blast database version that was searched
The actual look up is done in Runnable::Finished::Blast
This is just a holding place for the string in this
module
Returns : String or undef
Args : String
Caller : $self::run()
Job::run_module() |
Methods code
sub _createfiles
{
my ( $self, $dirname, $filenames ) = @_;
my $unique = {};
$unique = { map { $_, $unique->{$_}++ } @$filenames };
my @files = ();
$dirname ||= '/tmp';
$dirname =~ s!(\S+)/$!$1!;
foreach my $file (@$filenames) {
if ( $unique->{$file} ) {
$file .= ".$$." . int( rand(200) );
push( @files, "$dirname/$file" );
}
else {
push( @files, "$dirname/$file.$$" );
}
}
return @files;} | sub db_version_searched
{
my ( $self, $arg ) = @_;
$self->{'_db_version_searched'} = $arg if $arg;
return $self->{'_db_version_searched'};
}
1;} | sub fetch_input
{
my ($self) = @_;
my $slice =
$self->fetch_sequence( $self->input_id, $self->db,
$ANALYSIS_REPEAT_MASKING, $SOFT_MASKING );
$self->query($slice);
my %blast = %{ $self->BLAST_PARAMS };
my $parser = $self->make_parser;
my $filter;
if ( $self->BLAST_FILTER ) {
$filter = $self->make_filter;
}
my $runnable = Bio::EnsEMBL::Analysis::Runnable::Finished::Blast->new(
-query => $self->query,
-program => $self->analysis->program,
-parser => $parser,
-filter => $filter,
-database => $self->analysis->db_file,
-analysis => $self->analysis,
%blast,
);
my $s = $self->runnable($runnable);
return 1;} | General documentation
The rest of the documentation details each of the object methods.
Internal methods are usually preceded with a _
Title : write_output
Usage : $self->write_output();
Function: Writes Features , hit_descriptions to database by calling parent write_output method
Returns : none
Args : none