view release on metacpan or  search on metacpan

lib/Confman/API.pm  view on Meta::CPAN

      *{$class.'::'.$key} = sub {
        my $self = shift;
        $self->{pairs}{$key};
      } unless($self->can($key));
    }
  }

  $self;
}

sub update_pairs {
  my $self = shift;
  my %pairs = @_;
  my ($results, $response) = $self->api->request('PUT', "confman/sets/$self->{id}/update_pairs", {
      conf_pairs => \%pairs
  });
}

sub api {
  my $self = shift;
  return $self->{api};