File Coverage

blib/lib/WebService/Akeneo.pm

Criterion	Covered	Total	%
statement	26	44	59.0
branch	0	4	0.0
condition			n/a
subroutine	9	12	75.0
pod	0	3	0.0
total	35	63	55.5

package WebService::Akeneo;
$WebService::Akeneo::VERSION = '0.001';
use v5.38;
use Object::Pad;

# ABSTRACT: Akeneo REST API client built with Mojo::UserAgent and Object::Pad
# VERSION

use WebService::Akeneo::Config;
use WebService::Akeneo::Auth;
use WebService::Akeneo::Transport;
use WebService::Akeneo::Paginator;
use WebService::Akeneo::Resource::Categories;
use WebService::Akeneo::Resource::Products;

use Mojo::UserAgent;

class WebService::Akeneo 0.001;

field $config   :param;
field $ua;
field $auth;
field $t;
field $categories;
field $products;

BUILD {
  $ua         = Mojo::UserAgent->new;
  $auth       = WebService::Akeneo::Auth->new( config => $config, ua => $ua );
  $t          = WebService::Akeneo::Transport->new( config => $config, auth => $auth );
  $categories = WebService::Akeneo::Resource::Categories->new( t => $t );
  $products   = WebService::Akeneo::Resource::Products->new( t => $t );
}

method categories { $categories }
method products   { $products }

method ua ($new_ua = undef) {
  if (defined $new_ua) {
    $t->set_ua($new_ua) if $t->can('set_ua');
    $ua = $new_ua;
  }
  return $ua;
}

method on_request ($cb) { $t->on_request($cb) }
method on_response($cb) { $t->on_response($cb) }

1;

__END__