X-Git-Url: https://git.arvados.org/arvados.git/blobdiff_plain/ac91070f6dc5cc5ecf8756e75fe934b3436ec531..a13547aec78a75da2174e083f6015280787cd597:/sdk/perl/lib/Arvados/ResourceProxy.pm

diff --git a/sdk/perl/lib/Arvados/ResourceProxy.pm b/sdk/perl/lib/Arvados/ResourceProxy.pm
index c81d87effb..d3be46812e 100644
--- a/sdk/perl/lib/Arvados/ResourceProxy.pm
+++ b/sdk/perl/lib/Arvados/ResourceProxy.pm
@@ -1,3 +1,7 @@
+# Copyright (C) The Arvados Authors. All rights reserved.
+#
+# SPDX-License-Identifier: Apache-2.0
+
 package Arvados::ResourceProxy;
 
 sub new
@@ -21,6 +25,19 @@ sub save
     $self;
 }
 
+sub update_attributes
+{
+    my $self = shift;
+    my %updates = @_;
+    $response = $self->{'resourceAccessor'}->{'update'}->execute('uuid' => $self->{'uuid'}, $self->resource_parameter_name() => \%updates);
+    foreach my $param (keys %updates) {
+        if (exists $response->{$param}) {
+            $self->{$param} = $response->{$param};
+        }
+    }
+    $self;
+}
+
 sub reload
 {
     my $self = shift;