start lifting job manager over from free factories to crunch

[arvados.git] / sdk / perl / lib / Arvados / ResourceProxy.pm

diff --git a/sdk/perl/lib/Arvados/ResourceProxy.pm b/sdk/perl/lib/Arvados/ResourceProxy.pm
index e6a87764a2956b0360f507a9ab773626a7e58bb3..c81d87effb346d4ff0734bf0e0ec58d93faa96a6 100644 (file)
--- a/sdk/perl/lib/Arvados/ResourceProxy.pm
+++ b/sdk/perl/lib/Arvados/ResourceProxy.pm
@@ -21,6 +21,18 @@ sub save
     $self;
 }
 
+sub reload
+{
+    my $self = shift;
+    $response = $self->{'resourceAccessor'}->{'get'}->execute('uuid' => $self->{'uuid'});
+    foreach my $param (keys %$self) {
+        if (exists $response->{$param}) {
+            $self->{$param} = $response->{$param};
+        }
+    }
+    $self;
+}
+
 sub resource_parameter_name
 {
     my $self = shift;