File Coverage

blib/lib/Catmandu/Importer/Zotero.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	23	86.9

package Catmandu::Importer::Zotero;

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

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) = @_;

    sub {
        state $generator;

        unless (defined $generator) {
            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';

            $options{itemType} .= " -attachment";

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

        my $record = $generator->();

        return undef unless $record;

        if ($record->{meta}->{numChildren} > 0) {
            # Find children
            $record->{children} = $self->client->getItemChildren(
                                        user    => $self->userID,
                                        group   => $self->groupID,
                                        itemKey => $record->{_id}
                                  );
        }
        else {
            $record->{children} = [];
        }

        $record;
    };
}

1;

__END__