sub _couchdb_get {
my ( $url ) = @_;
my $return = $client->get( "$couchdb/$url" )->res->json;
- warn "# _couchdb_get $url = ",dump($return);
+# warn "# _couchdb_get $url = ",dump($return);
return $return;
}
my ( $self, $json ) = @_;
#warn "## _render_json ",dump($json);
my $data = $self->render( json => $json, partial => 1 );
-warn "## _render_json $data";
+#warn "## _render_json $data";
if ( my $callback = $self->param('callback') ) {
$data = "$callback($data)";
}
$endkey++;
my $counts = _couchdb_get qq|/$database/_all_docs?startkey="$entity";endkey="$endkey";include_docs=true|;
- warn "# counts ",dump($counts);
+# warn "# counts ",dump($counts);
_render_jsonp( $self, [ map { $_->{doc} } @{ $counts->{rows} } ] )
};