view release on metacpan or  search on metacpan

lib/CouchDB/Client/Doc.pm  view on Meta::CPAN

124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
 
sub revisionsInfo {
        my $self = shift;
 
        my $res = $self->{db}->{client}->req('GET', $self->uriName . '?revs_info=true');
        confess("Object not found: $res->{msg}") if $res->{status} == 404;
        confess("Connection error: $res->{msg}") unless $res->{success};
        return $res->{json}->{_revs_info};
}
 
sub update {
        my $self = shift;
 
        confess("Object hasn't been retrieved") unless $self->{id} and $self->{rev};
        my $content = $self->contentForSubmit;
        my $res = $self->{db}->{client}->req('PUT', $self->uriName, $content);
        confess("Storage error: $res->{msg}") unless $res->{success};
        $self->{rev} = $res->{json}->{rev};
        return $self;
}