1 package Arvados::ResourceProxy;
7 $self->{'resourceAccessor'} = shift;
15 $response = $self->{'resourceAccessor'}->{'update'}->execute('uuid' => $self->{'uuid'}, $self->resource_parameter_name() => $self);
16 foreach my $param (keys %$self) {
17 if (exists $response->{$param}) {
18 $self->{$param} = $response->{$param};
27 $response = $self->{'resourceAccessor'}->{'get'}->execute('uuid' => $self->{'uuid'});
28 foreach my $param (keys %$self) {
29 if (exists $response->{$param}) {
30 $self->{$param} = $response->{$param};
36 sub resource_parameter_name
39 my $pname = $self->{'resourceAccessor'}->{'resourcesName'};
40 $pname =~ s/s$//; # XXX not a very good singularize()