File Coverage

lib/DBIx/Skinny/Pager.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	6	8	75.0
condition	1	2	50.0
subroutine	8	9	88.8
pod	0	3	0.0
total	45	53	84.9

package DBIx::Skinny::Pager;

use strict;
use warnings;
use base 'DBIx::Skinny::SQL';
use DBIx::Skinny::Pager::Page::Default;
use DBIx::Skinny::Pager::ResultSet;
use Class::Accessor::Lite;

our $VERSION = '0.11';

Class::Accessor::Lite->mk_accessors(qw/page/);

sub get_total_entries {
    die "please override";
}

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

sub retrieve {
    my $self = shift;
    Carp::croak("limit not found") unless defined($self->limit);
    unless ( defined($self->offset) ) {
        Carp::croak("limit or page not found") unless defined($self->page);
        $self->offset($self->limit * ( (int($self->page) || 1) - 1) );
    }

    my $iter = $self->SUPER::retrieve(@_);
    my $total_entries = $self->get_total_entries($iter);
    my $pager = $self->pager_class->new($total_entries, $self->limit, ( $self->offset / $self->limit) + 1);

    if ( wantarray ) {
        return ( $iter, $pager );
    } else {
        return DBIx::Skinny::Pager::ResultSet->new(
            iterator => $iter,
            pager    => $pager,
        );
    }
}

1;
__END__