Commit 0f477f14 authored by Leo Gordon's avatar Leo Gordon
Browse files

allow automatic dataflow into tables as well

parent a7088961
......@@ -109,6 +109,8 @@ sub param_init {
Example 2 : $self->param('binpath', '/software/ensembl/compara'); # acting as a setter
Example 3 : my $all_params = $self-param(); # get the whole hash in one piece
Returntype : any Perl structure or object that you dared to store
=cut
......@@ -116,12 +118,17 @@ sub param_init {
sub param {
my $self = shift @_;
my $param_name = shift @_;
if(@_) { # If there is a value (even if undef), then set it!
$self->{'_param_hash'}{$param_name} = shift @_;
}
if(my $param_name = shift @_) {
if(@_) { # If there is a value (even if undef), then set it!
$self->{'_param_hash'}{$param_name} = shift @_;
}
return $self->{'_param_hash'}{$param_name};
return $self->{'_param_hash'}{$param_name};
} else {
return $self->{'_param_hash'};
}
}
=head2 param_substitute
......
......@@ -72,7 +72,7 @@ unless($no_write) {
if( $job->autoflow ) {
warn "\nAUTOFLOW input->output\n";
$job->dataflow_output_id();
$job->dataflow_output_id( $job->param() );
}
}
warn "\nDONE.\n";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment