Data::Page::Navigation - adds methods for page navigation 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 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().
Masahiro Nagano, <kazeburo@gmail.com>
Copyright (C) 2005 by Masahiro Nagano
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.
