Data::Page::Navigation - adds methods for page navigation link to Data::Page
use Data::Page::Navigation; my $total_entries=180; my $entries_per_page = 10; my $pages_per_navigation = 10; my $current_page = 1; my $pager = Data::Page->new( $total_entries, $entries_per_page, $current_page ); $pager->pages_per_navigation($pages_per_navigation); @list = $pager->pages_in_navigation($pages_per_navigation); #@list = qw/1 2 3 4 5 6 7 8 9 10/; $pager->current_page(9); @list = $pager->pages_in_navigation($pages_per_navigation); #@list = qw/5 6 7 8 9 10 11 12 13 14/;
Using this module instead of, or in addition to Data::Page, adds a few methods to Data::Page.
This modules allow you to get the array where page numbers of the number that you set are included. The array is made so that a current page may come to the center as much as possible in the array.
Setting the number of page numbers displayed on one page. default is 10
This method returns an array (or array-ref in scalar context) where page numbers of the number that you set with pages_per_navigation are included.
Returns the first page in the list returned by pages_in_navigation().
Returns the last page in the list returned by pages_in_navigation().
Data::Page
Masahiro Nagano <kazeburo {at} gmail.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Data::Page::Navigation, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Data::Page::Navigation
CPAN shell
perl -MCPAN -e shell install Data::Page::Navigation
For more information on module installation, please visit the detailed CPAN module installation guide.