File Coverage

blib/lib/Catmandu/Importer/Zotero.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	16	19	84.2

package Catmandu::Importer::Zotero;

use Catmandu::Sane;
use Catmandu::Util qw(:is);
use WWW::Zotero;
use Moo;

with 'Catmandu::Importer';

has userID       => (is => 'ro');
has groupID      => (is => 'ro');
has collectionID => (is => 'ro');
has apiKey       => (is => 'ro');

# From WWW::Zotero
has sort      => (is => 'ro');
has direction => (is => 'ro');
has itemKey   => (is => 'ro');
has itemType  => (is => 'ro');
has q         => (is => 'ro');
has qmode     => (is => 'ro');
has since     => (is => 'ro');
has tag       => (is => 'ro');

has client  => (is => 'lazy');

sub _build_client {
    my ($self) = @_;
    WWW::Zotero->new(key => $self->apiKey);
}

sub generator {
    my ($self) = @_;

    my %options = ();

    $options{user}      = $self->userID if $self->userID;
    $options{group}     = $self->groupID if $self->groupID;
    $options{sort}      = $self->sort if $self->sort;
    $options{direction} = $self->direction if $self->direction;
    $options{itemKey}   = $self->itemKey if $self->itemKey;
    $options{itemType}  = $self->itemType if $self->itemType;
    $options{q}         = $self->q if $self->q();
    $options{qmode}     = $self->qmode if $self->qmode;
    $options{since}     = $self->since if $self->since;
    $options{tag}       = $self->tag if $self->tag;
    $options{include}   = 'data';

    if ($self->collectionID) {
        $options{collectionKey} = $self->collectionID;
        $self->client->listCollectionItems(%options, generator => 1);
    } else {
        $self->client->listItems(%options, generator => 1);
    }
}

1;

__END__