view release on metacpan or  search on metacpan

lib/Catmandu/CA/API.pm  view on Meta::CPAN

    my $r = Catmandu::CA::API::Request->new(
        url       => $self->url,
        url_query => sprintf('service.php/item/%s', $self->model),
        username  => $self->username,
        password  => $self->password,
        lang      => $self->lang
    );
    return $r->put(encode_json($data));
}

sub update {
    my ($self, $id, $data) = @_;
    my $r = Catmandu::CA::API::Request->new(
        url       => $self->url,
        url_query => sprintf('service.php/item/%s/id/%s', $self->model, $id),
        username  => $self->username,
        password  => $self->password,
        lang      => $self->lang
    );
    return $r->put(encode_json($data));
}

lib/Catmandu/Store/CA/Bag.pm  view on Meta::CPAN

    my ($self, $id) = @_;
    my $field_list = $self->store->_field_list;
    return $self->api->id($id, $field_list);
}

sub add {
    my ($self, $data) = @_;
    return $self->api->add($data);
}

sub update {
    my ($self, $id, $data) = @_;
    return $self->api->update($id, $data);
}

sub delete {
    my ($self, $id) = @_;
    return $self->api->delete($id);
}

sub delete_all {