sdk/perl/lib/Arvados/ResourceProxyList.pm

   1 package Arvados::ResourceProxyList;
   2
   3 sub new
   4 {
   5     my $class = shift;
   6     my $self = {};
   7     bless ($self, $class);
   8     $self->_init(@_);
   9 }
  10
  11 sub _init
  12 {
  13     my $self = shift;
  14     $self->{'serverResponse'} = shift;
  15     $self->{'resourceAccessor'} = shift;
  16     $self->{'items'} = [ map { Arvados::ResourceProxy->new($_, $self->{'resourceAccessor'}) } @{$self->{'serverResponse'}->{'items'}} ];
  17     $self;
  18 }
  19
  20 1;