File Coverage

lib/DBIx/Skinny/Pager/Logic/PlusOne.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	0	3	0.0
total	41	45	91.1

package DBIx::Skinny::Pager::Logic::PlusOne;
use strict;
use warnings;
use base qw(DBIx::Skinny::Pager);
use DBIx::Skinny::Pager::Page::PlusOne;

sub as_sql {
    my $self = shift;
    my $original_limit = $self->limit;
    $self->limit($original_limit + 1);
    my $result = $self->SUPER::as_sql;
    $self->limit($original_limit);
    return $result;
}

sub pager_class {
    "DBIx::Skinny::Pager::Page::PlusOne";
}

sub get_total_entries {
    my ($self, $iter) = @_;
    my $has_next;
    # XXX: iterがno cacheの場合はうまくいかないが、
    # ここはPagerで拡張したretrieve以外から呼ばれることは想定されていないので
    # 大丈夫な気もする
    if ( $iter->count > $self->limit ) {
        pop @{$iter->{_rows_cache}};
        # for date2itr
        if ( $iter->{data} ) {
            pop @{$iter->{data}};
        }
        $has_next++;
    }
    return $self->offset + $self->limit + ( $has_next || 0 );
}

1;
__END__