Bio::EnsEMBL::Compara::Production::GenomicAlignBlock CreateRules
SummaryIncluded librariesPackage variablesSynopsisDescriptionGeneral documentationMethods
Toolbar
WebCvsRaw content
Summary
Bio::EnsEMBL::Compara::RunnableDB::CreateRules
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::Compara::DBSQL::DBAdaptor
Bio::EnsEMBL::DBSQL::DBAdaptor
Bio::EnsEMBL::Hive
Bio::EnsEMBL::Pipeline::RunnableDB
Inherit
Bio::EnsEMBL::Pipeline::RunnableDB
Synopsis
my $db = Bio::EnsEMBL::Compara::DBAdaptor->new($locator);
my $repmask = Bio::EnsEMBL::Pipeline::RunnableDB::CreateRules->new (
-db => $db,
-input_id => $input_id
-analysis => $analysis );
$repmask->fetch_input(); #reads from DB
$repmask->run();
$repmask->output();
$repmask->write_output(); #writes to DB
Description
Methods
createBlastRules
No description
Code
fetch_input
No description
Code
run
No description
Code
write_output
No description
Code
Methods description
None available.
Methods code
createBlastRulesdescriptionprevnextTop
sub createBlastRules {
  my $self = shift;

  my $dataflowRuleDBA = $self->db->get_DataflowRuleAdaptor;
  my $analysisList = $self->db->get_AnalysisAdaptor->fetch_all();

  my @fromList = ();

  foreach my $analysis (@{$analysisList}) {
    next unless($analysis->logic_name =~ /^$self->{'from_prefix'}/);
    push @fromList, $analysis;
    print("FROM: ", $analysis->logic_name,"\n");
  }

  foreach my $to_analysis (@{$analysisList}) {
    next unless($to_analysis->logic_name =~ /^$self->{'to_prefix'}/);
    next if($to_analysis->logic_name eq $self->{'to_prefix'});
    foreach my $from_analysis (@fromList) {
      print("  ",$from_analysis->logic_name," -> ", $to_analysis->logic_name, "\n");
      $dataflowRuleDBA->create_rule($from_analysis, $to_analysis);
    }
  }

  foreach my $from_analysis (@fromList) {
    my $stats = $from_analysis->stats;
    $stats->status('LOADING');
    $stats->update;
  }
}


1;
}
fetch_inputdescriptionprevnextTop
sub fetch_input {
  my $self = shift;

  $self->throw("No input_id") unless defined($self->input_id);
  $self->throw("Improper formated input_id") unless ($self->input_id =~ /{/);

  return 1;
}
rundescriptionprevnextTop
sub run {
  return 1;
}
write_outputdescriptionprevnextTop
sub write_output {
  my $self = shift;

  my $input_hash = eval($self->input_id);
  $self->{'from_prefix'} = $input_hash->{'from'};
  $self->{'to_prefix'} = $input_hash->{'to'};

  $self->createBlastRules();
  return 1;
}




##################################
#
# subroutines
#
##################################
}
General documentation
CONTACTTop
Describe contact details here
APPENDIXTop
The rest of the documentation details each of the object methods.
Internal methods are usually preceded with a _