Yet Another CPAN Grep

Catmandu-Store-MongoDB ( N/NI/NICS/Catmandu-Store-MongoDB-0.0806.tar.gz, NICS, 2021; MetaCPAN )

Catmandu-Store-MongoDB/lib/Catmandu/Store/MongoDB.pm ( view source; MetaCPAN )

NOPSIS

    # On the command line
    $ catmandu import -v JSON --multiline 1 to MongoDB --database_name bibliography --bag books < books.json
    $ catmandu export MongoDB --database_name bibliograph

Catmandu-Store-MongoDB ( N/NI/NICS/Catmandu-Store-MongoDB-0.0806.tar.gz, NICS, 2021; MetaCPAN )

Catmandu-Store-MongoDB/lib/Catmandu/Store/MongoDB/Bag.pm ( view source; MetaCPAN )

u::Util qw(:is);
use Catmandu::Store::MongoDB::Searcher;
use Catmandu::Hits;
use Cpanel::JSON::XS qw(decode_json);
use Moo;
use Catmandu::Store::MongoDB::CQL;
use namespace::clean;

with 'Catmandu::Ba

e a string query is a JSON encoded MongoDB query
sub normalize_query {
    my ($self, $query) = @_;
    return $query if ref $query;
    return {}     if !$query;
    decode_json($query);
}

# assume

    my ($self, $sort) = @_;
    return $sort if ref $sort;
    return {}    if !$sort;
    decode_json($sort);
}

sub drop {
    $_[0]->collection->drop;
}

1;

__END__

=pod

=head1 NAME

Catmandu::S