Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
0f477f14
Commit
0f477f14
authored
Jul 13, 2011
by
Leo Gordon
Browse files
allow automatic dataflow into tables as well
parent
a7088961
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
6 deletions
+13
-6
modules/Bio/EnsEMBL/Hive/Params.pm
modules/Bio/EnsEMBL/Hive/Params.pm
+12
-5
scripts/standaloneJob.pl
scripts/standaloneJob.pl
+1
-1
No files found.
modules/Bio/EnsEMBL/Hive/Params.pm
View file @
0f477f14
...
...
@@ -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
...
...
scripts/standaloneJob.pl
View file @
0f477f14
...
...
@@ -72,7 +72,7 @@ unless($no_write) {
if
(
$job
->
autoflow
)
{
warn
"
\n
AUTOFLOW input->output
\n
";
$job
->
dataflow_output_id
();
$job
->
dataflow_output_id
(
$job
->
param
()
);
}
}
warn
"
\n
DONE.
\n
";
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment