Catmandu-Adlib

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME

    Catmandu::Adlib - Catmandu interface to Adlib
    <http://www.adlibsoft.nl/>

SYNOPSIS

        # From the command line
        catmandu export Adlib to YAML --id 1234 --endpoint http://test2.adlibsoft.com --username foo --password bar --database collect.inf
    
        # From a Catmandu Fix
        lookup_in_store(
          object_priref,
          Adlib,
          endpoint: http://test2.adlibsoft.com,
          username: foo,
          password: bar,
          database: collect.inf
        )

MODULES

    Catmandu::Store::Adlib

    Catmandu::Adlib::API

lib/Catmandu/Adlib.pm  view on Meta::CPAN

=encoding utf-8

=head1 NAME

Catmandu::Adlib - Catmandu interface to L<Adlib|http://www.adlibsoft.nl/>

=head1 SYNOPSIS

    # From the command line
    catmandu export Adlib to YAML --id 1234 --endpoint http://test2.adlibsoft.com --username foo --password bar --database collect.inf

    # From a Catmandu Fix
    lookup_in_store(
      object_priref,
      Adlib,
      endpoint: http://test2.adlibsoft.com,
      username: foo,
      password: bar,
      database: collect.inf
    )

=head1 MODULES

=over

=item L<Catmandu::Store::Adlib>

lib/Catmandu/Adlib/API.pm  view on Meta::CPAN

use Catmandu::Sane;
use Moo;
use JSON;

use Catmandu::Adlib::API::Login;
use Catmandu::Adlib::API::QueryBuilder;

has username => (is => 'ro', required => 1);
has password => (is => 'ro', required => 1);
has endpoint => (is => 'ro', required => 1);
has database => (is => 'ro', required => 1);

has ua => (is => 'lazy');
has qb => (is => 'lazy');

sub _build_ua {
    my $self = shift;
    return Catmandu::Adlib::API::Login->new(
        username => $self->username,
        password => $self->password

lib/Catmandu/Store/Adlib/Bag.pm  view on Meta::CPAN

with 'Catmandu::Bag';

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

sub _build_api {
    my $self = shift;
    return Catmandu::Adlib::API->new(
        username => $self->store->username,
        password => $self->store->password,
        endpoint => $self->store->endpoint,
        database => $self->store->database
    );
}


sub generator {
    # TODO: OAI
    my $self = shift;
    my $stack = $self->api->list()->{'adlibJSON'}->{'recordList'}->{'record'};
    # TODO: PAGING

 view all matches for this distribution
 view release on metacpan -  search on metacpan