The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Aniki::Plugin::PagerInjector - plus one pager injector

SYNOPSIS

    package MyDB;
    use Mouse v2.4.5;
    extends qw/Aniki/;
    with qw/Aniki::Plugin::PagerInjector/;

    package main;
    my $db = MyDB->new(...);

    my ($page, $rows) = (1, 10);
    my ($limit, $offset) = ($rows + 1, ($page - 1) * $rows);
    my $result = $db->select('user', { type => 2 }, { limit => $limit, offset => $offset }); # => Aniki::Result::Collection
    $result = $db->inject_pager_to_result($result => { # => inject Aniki::Result::Role::Pager
        table_name => 'user',
        rows       => $rows,
        page       => $page,
    })
    $result->pager; # => Data::Page::NoTotalEntries

SEE ALSO

perl Data::Page::NoTotalEntries

LICENSE

Copyright (C) karupanerura.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

karupanerura <karupa@cpan.org>