ç¾å¨ãDBIx::Classã¨Template Toolkitãåå¼·ãã¦ããã¨ããã§ããããã¼ã¸ã³ã°ã®å¦çãé©ãã»ã©ç°¡åã«æ¸ããã®ã§èªåç¨ã®ã¡ã¢ãæ®ãã¦ããã¾ãã CGIå´ã§resultsetãªãã¸ã§ã¯ãã«å¯¾ãpager()ãã³ã¼ã«ãããã¨ã§ãData::Pageãªãã¸ã§ã¯ããåå¾ã§ãã¾ãã my $q = CGI->new; my $schema = App::Schema->connect; my $iterator = $schema->resultset('Comment')->search({}, {rows => 5}); # 1ãã¼ã¸è¾ºãã®è¡æ°ã¯5 my $page = $q->param('page') || 1; my $rs = $it->page($page); # 1ãã¼ã¸ç®ã®resultsetãªãã¸ã§ã¯ããåå¾ print $q->header('text/htm
{{#tags}}- {{label}}
{{/tags}}