Merge branch '18027-boot-probe-command' into main
[arvados.git] / 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;