The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Store-CouchDB-4.3
River stage one • 1 direct dependent • 1 total dependent
3 ++
/ Store::CouchDB

NAME

Store::CouchDB - Store::CouchDB - a simple CouchDB driver

VERSION

version 4.3

SYNOPSIS

Store::CouchDB is a very thin wrapper around CouchDB. It is essentially a set of calls I use in production and is by no means a complete library, it is just complete enough for the things I need to do.

Refer to the CouchDB Documentation at: http://docs.couchdb.org/en/latest/

    use Store::CouchDB;

    my $sc = Store::CouchDB->new(host => 'localhost', db => 'your_db');
    # OR
    my $sc = Store::CouchDB->new();
    $sc->config({host => 'localhost', db => 'your_db'});
    my $array_ref = $db->get_array_view({
        view   => 'design_doc/view_name',
        opts   => { key => $key },
    });

ATTRIBUTES

debug

Sets the class in debug mode

Default: false

host

Default: localhost

port

Default: 5984

ssl

Connect to host using SSL/TLS.

Default: false

db / has_db

The database name to use.

user

The DB user to authenticate as. optional

pass

The password for the user to authenticate with. required if user is given.

method

This is internal and sets the request method to be used (GET|POST)

Default: GET

error / has_error

This is set if an error has occured and can be called to get the last error with the 'has_error' predicate.

    $sc->has_error

Error string if there was an error

purge_limit

How many documents shall we try to purge.

Default: 5000

timeout

Timeout in seconds for each HTTP request. Passed onto LWP::UserAgent. In case of a view or list related query where the view has not been updated in a long time this will timeout and a new request with the stale option set to update_after will be made to avoid blocking. See http://docs.couchdb.org/en/latest/api/ddoc/views.html

Set this very high if you don't want stale results.

Default: 30

json

agent

METHODS

new

The Store::CouchDB class takes a any of the attributes described above as parameters.

get_doc

The get_doc call returns a document by its ID. If no document ID is given it returns undef

    my $doc = $sc->get_doc({ id => 'doc_id', rev => '1-rev', dbname => 'database' });

where the dbname key is optional. Alternatively this works too:

    my $doc = $sc->get_doc('doc_id');

head_doc

If all you need is the revision a HEAD call is enough.

    my $rev = $sc->head_doc('doc_id');

all_docs

This call returns a list of document IDs with their latest revision by default. Use include_docs to get all Documents attached as well.

    my @docs = $sc->all_docs({ include_docs => 'true' });

get_design_docs

The get_design_docs call returns all design document names in an array. You can add include_docs = 'true'> to get whole design documents.

    my @docs = $sc->get_design_docs({ dbname => 'database' });

Again the dbname key is optional.

put_doc

The put_doc call writes a document to the database and either updates a existing document if the _id field is present or writes a new one. Updates can also be done with the update_doc call if you want to prevent creation of a new document in case the document ID is missing in your input hashref.

    my ($id, $rev) = $sc->put_doc({ doc => { .. }, dbname => 'database' });

del_doc

The del_doc call marks a document as deleted. CouchDB needs a revision to delete a document which is good for security but is not practical for me in some situations. If no revision is supplied del_doc will get the document, find the latest revision and delete the document. Returns the revision in SCALAR context, document ID and revision in ARRAY context.

    my $rev = $sc->del_doc({ id => 'doc_id', rev => 'r-evision', dbname => 'database' });

update_doc

WARNING: as of Version 3.4 this method breaks old code!

The use of update_doc() was discouraged before this version and was merely a wrapper for put_doc, which became unnecessary. Please make sure you update your code if you were using this method before version 3.4.

update_doc refuses to push a document if the document ID is missing or the document does not exist. This will make sure that you can only update existing documents and not accidentally create a new one.

            $id = $sc->update_doc({ doc => { _id => '', _rev => '', ... } });
    ($id, $rev) = $sc->update_doc({ doc => { .. }, dbname => 'database' });

copy_doc

The copy_doc is _not_ the same as the CouchDB equivalent. In CouchDB the copy command wants to have a name/id for the new document which is mandatory and can not be ommitted. I find that inconvenient and made this small wrapper. All it does is getting the doc to copy, removes the _id and _rev fields and saves it back as a new document.

    my ($id, $rev) = $sc->copy_doc({ id => 'doc_id', dbname => 'database' });

show_doc

call a show function on a document to transform it.

    my $content = $sc->show_doc({ show => 'design_doc/show_name' });

get_view

There are several ways to represent the result of a view and various ways to query for a view. All the views support parameters but there are different functions for GET/POST view handling and representing the reults. The get_view uses GET to call the view and returns a hash with the _id as the key and the document as a value in the hash structure. This is handy for getting a hash structure for several documents in the DB.

    my $hashref = $sc->get_view({
        view => 'design_doc/view_name',
        opts => { key => $key },
    });

get_post_view

The get_post_view uses POST to call the view and returns a hash with the _id as the key and the document as a value in the hash structure. This is handy for getting a hash structure for several documents in the DB.

    my $hashref = $sc->get_post_view({
        view => 'design_doc/view_name',
        opts => [ $key1, $key2, $key3, ... ],
    });

get_view_array

The get_view_array uses GET to call the view and returns an array of matched documents. This view functions is the one I use most and has the best support for corner cases.

    my @docs = @{ $sc->get_array_view({
        view => 'design_doc/view_name',
        opts => { key => $key },
    }) };

A normal response hash would be the "value" part of the document with the _id moved in as "id". If the response is not a HASH (the request was resulting in key/value pairs) the entire doc is returned resulting in a hash of key/value/id per document.

get_array_view

Same as get_view_array only returns a real array. Use either one depending on your use case and convenience.

list_view

use the _list function on a view to transform its output. if your view contains a reduce function you have to add

    opts => { reduce => 'false' }

to your hash.

    my $content = $sc->list_view({
        list => 'list_name',
        view => 'design/view',
    #   opts => { reduce => 'false' },
    });

changes

First draft of a changes feed implementation. Currently just returns the whole JSON structure received. This might change in the future. As usual the dbname key is optional if the database name is already set via the db attribute.

    my $changes = $sc->changes({dbname => 'database', limit => 100, since => 'now' });

purge

This function tries to find deleted documents via the _changes call and then purges as many deleted documents as defined in $self->purge_limit which currently defaults to 5000. This call is somewhat experimental in the moment.

    my $result = $sc->purge({ dbname => 'database' });

compact

This compacts the DB file and optionally calls purge and cleans up the view index as well.

    my $result = $sc->compact({ purge => 1, view_compact => 1 });

put_file

To add an attachement to CouchDB use the put_file method. 'file' because it is shorter than attachement and less prone to misspellings. The put_file method works like the put_doc function and will add an attachement to an existing doc if the '_id' parameter is given or creates a new empty doc with the attachement otherwise. The 'file' and 'filename' parameters are mandatory.

    my ($id, $rev) = $sc->put_file({ file => 'content', filename => 'file.txt', id => 'doc_id' });

get_file

Get a file attachement from a CouchDB document.

    my $content = $sc->get_file({ id => 'doc_id', filename => 'file.txt' });

del_file

Delete a file attachement from a CouchDB document.

    my $content = $sc->del_file({ id => 'doc_id', rev => 'r-evision', filename => 'file.txt' });

config

This can be called with a hash of config values to configure the databse object. I use it frequently with sections of config files.

    $sc->config({ host => 'HOST', port => 'PORT', db => 'DATABASE' });

create_db

Create a Database

    my $result = $sc->create_db('name');

delete_db

Delete/Drop a Databse

    my $result = $sc->delete_db('name');

all_dbs

Get a list of all Databases

    my @db = $sc->all_dbs;

BUGS

Please report any bugs or feature requests on GitHub's issue tracker https://github.com/norbu09/Store-CouchDB/issues. Pull requests welcome.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Store::CouchDB

You can also look for information at:

ACKNOWLEDGEMENTS

Thanks for DB::CouchDB which was very enspiring for writing this library

AUTHOR

Lenz Gschwendtner <norbu09@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Lenz Gschwendtner.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.