CPAN::Groonga

0';
use strict;
use warnings;

use Moose;
use MooseX::NonMoose;
use MooseX::Params::Validate;
use JSON;
use HTTP::Request::Common qw '';

extends 'REST::Client';

has host => (
  is => 'ro',
  isa => 

shift;
  return decode_json $self->elab_get("items_types/");
}


sub get_item_types {
  return get_items_types(@_);
}



sub get_status {
  my $self = shift;
  return decode_json $self->elab_get("stat

hift;
  my (%args) = validated_hash(
    \@_,
    link  => { isa => 'Str' },
  );
  return decode_json $self->elab_post("experiments/$id", $self->buildQuery(%args));
}



sub add_link_to_item {
  my $