sdk/perl/lib/Arvados/ResourceAccessor.pm

   1 package Arvados::ResourceAccessor;
   2 use Carp;
   3 use Data::Dumper;
   4
   5 sub new
   6 {
   7     my $class = shift;
   8     my $self = {};
   9     bless ($self, $class);
  10
  11     $self->{'api'} = shift;
  12     $self->{'resourcesName'} = shift;
  13     $self->{'methods'} = $self->{'api'}->{'discoveryDocument'}->{'resources'}->{$self->{'resourcesName'}}->{'methods'};
  14     my $method_name, $method;
  15     while (($method_name, $method) = each %{$self->{'methods'}}) {
  16         $self->{$method_name} = Arvados::ResourceMethod->new($self, $method);
  17     }
  18     $self;
  19 }
  20
  21 1;