package Proj::DB; use DBIx::Skinny; package main; use Proj::DB; my $rs = Proj::DB->resultset_with_pager('PlusOne'); # $rs can handle like DBIx::Skinny::SQL. $rs->from(['some_table']); $rs->add_where('foo' => 'bar'); $rs->limit(10); $rs->offset(20); my ($iter, $pager) = $rs->retrieve; # $iter is a DBIx::Skinny::Iterator # $pager is a DBIx::Skinny::Pager::Page::PlusOne.
DBIx::Skinny::Pager::Logic::PlusOne will take limit + 1 record and you can decide next page is exist or not. This logic is good at performance. But, you can't know total records. So, if you want to switch view speedy, see pager class.
Keiji Yoshimi <walf443 at gmail dot com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.