File Coverage

blib/lib/WebService/Akeneo/Paginator.pm

Criterion	Covered	Total	%
statement	8	26	30.7
branch	0	4	0.0
condition	0	15	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	11	50	22.0

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

use Object::Pad;
use Mojo::URL;

class WebService::Akeneo::Paginator 0.001;

field $transport :param;   # WebService::Akeneo::Transport

method collect ($path, %params) {
  my $limit = delete($params{limit}) // 100;
  my $page  = delete($params{page})  // 1;
  my $query = { %params, limit=>$limit, page=>$page };

  my $acc = [];
  while (1) {
    my $page_res = $transport->request('GET', $path, query => $query);
    my $items = ($page_res->{items}//($page_res->{_embedded} && $page_res->{_embedded}{items})) // [];
    push @$acc, @$items if @$items;

    my $next = ($page_res->{_links}//{})->{next} && $page_res->{_links}{next}{href};
    last unless $next;
    my $url = Mojo::URL->new($next); $query = $url->query->to_hash;
  }
  return $acc;
}

1;