use strict;
use warnings;
use 5.010;
use YAML::Syck;
use Net::HTTP::Spore;
use Try::Tiny;
my $api = Net::HTTP::Spore->new_from_spec(shift, api_base_url => 'http://localhost:5984');
$api->enable('Format::JSON');
$api->enable('Runtime');
$api->enable('UserAgent');
#my $documents = $api->get_all_documents(database => 'spore');
#warn Dump $documents;
#say "status => ".$documents->[0];
#say "body => ".Dump $documents->[2];
#say "headers=> ".Dump $documents->[1];
my $res;
#$res = $api->create_document_with_id(database => 'spore', doc_id => 1, payload => {foo => 'bar'});
#warn Dump $res;
#$res = $api->delete_document(database =>'spore', doc_id => 1, rev => $res->body->{rev});
#warn Dump $res;
$res = $api->create_document_without_id(database => 'spore', payload => {foo => 'baz', bar => 'foobaz'});
warn Dump $res;
#try {
#$res = $api->get_document( database => 'spore', doc_id => 1 );
#}
#catch {
#warn Dump $_->[2];
#warn Dump $_->[1];
#};