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.