Data::Page::Navigation

Perl CGI

d:id:iox:20070618:1182158941の記事にid:fbisさんからブックマークでData::Page::Navigationを使うとさらに便利と教えてもらいましたので、早速少し使ってみました。

このモジュールは、Data::Pageモジュールにメソッドを加えたモジュールのようで、pages_per_navigation()をコールすることによってナビゲーションに表示する項目に制限をかけることができるようです。

使い方はこんな感じ。

CGI側：

my $pager = Data::Page->new(100,  # トータルのエントリ数
                            10,   # ページ毎に表示するエントリ数
                            1,    # 表示するページ
                           ); 
$pager->pages_per_navigation(3);  # ナビゲーションに表示する項目を3つまでに制限

View側(Tempalte Toolkit):

[% FOREACH num= pager.pages_in_navigation %]
  [% IF num == pager.current_page %]% num %
  [% ELSE %][[% num %]]
  [% END %]
[% END %]

データ数が多い場合に、全て表示するのではなく制限したい場合にとても便利ですね。
id:fbisさん、情報ありがとうございました。