projects
/
arvados.git
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8ebf6b6
)
Allow passing hashes as resource attributes. This lets crunch-job keep
author
Tom Clegg <tom@curoverse.com>
Wed, 12 Feb 2014 05:07:52 +0000
(21:07 -0800)
committer
Tom Clegg <tom@curoverse.com>
Wed, 12 Feb 2014 05:07:52 +0000
(21:07 -0800)
jobs.tasks_summary up to date.
sdk/perl/lib/Arvados/ResourceMethod.pm
patch
|
blob
|
history
diff --git
a/sdk/perl/lib/Arvados/ResourceMethod.pm
b/sdk/perl/lib/Arvados/ResourceMethod.pm
index 0aaf9946ba5919b660cc712fbcb756e381ff76af..649d779c6755256ed4624315ab7e61897fd92b1b 100644
(file)
--- a/
sdk/perl/lib/Arvados/ResourceMethod.pm
+++ b/
sdk/perl/lib/Arvados/ResourceMethod.pm
@@
-76,6
+76,12
@@
sub execute
if (ref $property eq '' || $property eq undef) {
$param_value{$property_name} = $property;
}
+ elsif (ref $property eq 'HASH') {
+ $param_value{$property_name} = {};
+ while (my ($k, $v) = each %$property) {
+ $param_value{$property_name}->{$k} = $v;
+ }
+ }
}
}
$body_params{$param_name} = \%param_value;