view release on metacpan or  search on metacpan

t/05_pagination.t  view on Meta::CPAN

  my $args = shift;
  my $n = $args->{n} || 2;

  return Docker::Registry::Response->new(
    status => 200,
    headers => {
      'docker-distribution-api-version' => 'registry/2.0',
      'date' => 'Wed, 21 Oct 2015 07:28:00 GMT',
      'transfer-encoding' => 'chunked',
      'content-type' => 'text/plain; charset=utf-8',
      'connection' => 'keep-alive',
      $args->{last}
        ? (link => "<https://my.awesome.registry/v2/my-repository/tags/list?last=$args->{last}&n=1000>; rel='next'")
        : (),
    },
    content => $args->{content}
      ? encode_json($args->{content})
      : encode_json({ name => 'my-repository', tags =>  [map { "v$_" } (1..$n)] }),
  );
}