view release on metacpan or  search on metacpan

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

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
    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

50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
    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 {