Data::Paginator - Pagination with Moose
my $pager = Data::Paginator->new(
current_page => 1,
entries_per_page => 10,
total_entries => 100,
print "First page: ".$pager->first_page."\n";
print "Last page: ".$pager->last_page."\n";
print "First entry on page: ".$pager->first."\n";
print "Last entry on page: ".$pager->last."\n";
This is yet another pagination module. It only exists because none of the other
pager modules are written using Moose. Sometimes there is a Moose feature X
MooseX::Storage, in my case X that you need. It's a pain when you can't use it
with an existing module. This module aims to be completely compatible with the
venerable Data::Page. In fact, it's a pretty blatant copy of Data::Page,
lifting code from some of it's methods.
This module provides behavior compatible with Data::PageSet, allowing you to
break your pagination into sets. For example, if you have a large number of
pages to show and would like to allow the user to 'jump' X pages at a time,
you can set the "pages_per_set" attribute to
X and populate the links in your pagination control with the values from
The current page. Defaults to 1. If you set this value to to a page number
lesser than or greater than the range of the pager, then 1 or the last_page
will be returned instead. It is safe to pass this numbers like -1000 or 1000
when there are only 3 pages.
The number of entries per page, required at instantiation.
Returns the number of the last page. Lazily computed, so do not set.
Returns the number of the next set or undefined if there is no next.
If you have a large number of pages to show and would like to allow the user to
'jump' X pages at a time, you can set the
"pages_per_set" attribute to X and populate
the links in your pagination control with the values from
Returns the set number of the previous set or undefined if there is no previous
The total number of entries this pager is covering. Required at instantiation.
Returns the number of the first entry on the current page.
Always returns 1.
Returns the number of entries on this page.
Returns 1 if this Paginator has pages_per_set. Otherwise returns undef.
Returns the number of the last entry on the current page.
Returns the page number of the next page if one exists, otherwise returns false.
Returns the page number that the $count item appears on.
Returns undef if $count is outside the bounds of this
Returns the page number of the previous page if one exists, otherwise returns
Returns the set number of the specified page. Returns undef if the page exceeds
the bounds of the Paginator.
Takes in an arrayref and returns only the values which are on the current page.
Leon Brocard and his work on Data::Page.
Cory G Watson <email@example.com>
COPYRIGHT AND LICENSE¶
This software is copyright (c) 2014 by Cory G Watson.
This is free software; you can redistribute it and/or modify it
under the same terms as the Perl 5 programming language system itself.