# NAME Data::Page::Navigation - adds methods for page navigation link to Data::Page # SYNOPSIS 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/; # DESCRIPTION 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. # METHODS ## pages\_per\_navigation Setting the number of page numbers displayed on one page. default is 10 ## pages\_in\_navigation(\[pages\_per\_navigation\]) 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. ## first\_navigation\_page Returns the first page in the list returned by pages\_in\_navigation(). ## last\_navigation\_page Returns the last page in the list returned by pages\_in\_navigation(). # SEE ALSO [Data::Page](https://metacpan.org/pod/Data%3A%3APage) # AUTHOR Masahiro Nagano <kazeburo {at} gmail.com> # LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.