Data::Pageset - ページの番号付けとページセット

うはー、便利！ページ遷移付きのCGIページ（たとえば、Googleの検索結果みたいな）作るときに楽々〜。

use Data::Pageset;
my $page_info = Data::Pageset->new({
	'total_entries'       => $total_entry, # 総データ数
	'entries_per_page'    => $entry_per_page, # 1ページ当たりのデータ数
	'current_page'        => $current_page, # 現在のページ
});

my $first_page = $page_info->first_page;	# 最初のページ番号
my $last_page = $page_info->last_page; # 最後のページ番号
my $previous_page = $page_info->previous_page; # 1ページ前のページ番号
my $next_page = $page_info->next_page; # 1ページ前のページ番号