Data::Page::Navigation - ページナビゲーションの実装

1. 
   
   Perl
   
   
›
2. 
   
   モジュール
   
   
›
3. 
   here
   

　Data::Page::NavigationモジュールはData::Pageに機能を追加するモジュールで、ページナビゲーション用のデータを簡単に作成することができます。

use strict;
use warnings;

use Data::Page;
use Data::Page::Navigation;

my $total_entries = 180;
my $entries_per_page = 10;
my $current_page = 1;
my $pager = Data::Page->new($total_entries, $entries_per_page, $current_page);

# ページナビゲーションの個数を設定
$pager->pages_per_navigation(10);

# ページナビゲーション用のデータを取得
my @pages = $pager->pages_in_navigation;

# 1 2 3 4 5 6 7 8 9 10
print "@pages\n";

# 現在のページを変更
$pager->current_page(9);
my @pages2 = $pager->pages_in_navigation;

# 5 6 7 8 9 10 11 12 13 14
print "@pages2\n";

メソッド

pages_per_navigation

　ひとつのページに表示されるページの数を設定します。デフォルトは10です。

my $pages_per_navigation = $pager->pages_per_navigation;
$pager->pages_per_navigation(15);

pages_in_navigation

　このメソッドは、ページナンバーのリストを返却します。

my @pages = $pager->pages_in_navigation;
my $pages = $pager->pages_in_navigation;

first_navigation_page

　最初のナビゲーションページを返します。

my $first_page = $pager->first_navigation_page;

last_navigation_page

　最後のナビゲーションページを返します。

my $last_page = $pager->last_navigation_page;