sdk/perl/lib/Arvados/ResourceProxyList.pm

   1 # Copyright (C) The Arvados Authors. All rights reserved.
   2 #
   3 # SPDX-License-Identifier: Apache-2.0
   4
   5 package Arvados::ResourceProxyList;
   6
   7 sub new
   8 {
   9     my $class = shift;
  10     my $self = {};
  11     bless ($self, $class);
  12     $self->_init(@_);
  13 }
  14
  15 sub _init
  16 {
  17     my $self = shift;
  18     $self->{'serverResponse'} = shift;
  19     $self->{'resourceAccessor'} = shift;
  20     $self->{'items'} = [ map { Arvados::ResourceProxy->new($_, $self->{'resourceAccessor'}) } @{$self->{'serverResponse'}->{'items'}} ];
  21     $self;
  22 }
  23
  24 1;