Data::Page::Navigationリリースしました CPANのindexerが復活したようなので午前中にアップしたData::Page::Navigationもでてくるようになりました。 関連エントリー 1st Data::Pageとページナビゲーション 2nd Data::Page::Navigation いい感じのページナビゲーション 使い方は、 use Data::Page::Navigation; とuseするだけです。 あとは普通に my $pager = Data::Page->new(100,10,2); とData::Pageのオブジェクトを生成します。すると、表示するページ番号のリストをつくるpages_in_navigationメソッドが使えるようになってます。 my @list = $pager->pages_in_navigation(); Catalys