File Coverage

blib/lib/Data/Page/NoTotalEntries.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	12	14	85.7
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	55	57	96.4

package Data::Page::NoTotalEntries;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.02';
use Class::Accessor::Lite 0.05 (
    new => 1,
    rw => [qw/has_next entries_per_page current_page entries_on_this_page/]
);

sub next_page {
    my $self = shift;
    $self->has_next ? $self->current_page + 1 : undef;
}

sub previous_page { goto &prev_page }
sub prev_page {
    my $self = shift;
    $self->current_page > 1 ? $self->current_page - 1 : undef;
}

sub first {
    my $self = shift;
    Carp::croak("'first' method requires 'entries_on_this_page'") unless defined $self->entries_on_this_page;

    if ( $self->entries_on_this_page == 0 ) {
        return 0;
    }
    else {
        return ( ( $self->current_page - 1 ) * $self->entries_per_page ) + 1;
    }
}

sub last {
    my $self = shift;
    Carp::croak("'last' method requires 'entries_on_this_page'") unless defined $self->entries_on_this_page;

    if ( !$self->has_next ) {
        if ($self->entries_on_this_page == 0) {
            return 0;
        } else {
            return $self->first + $self->entries_on_this_page - 1;
        }
    }
    else {
        return ( $self->current_page * $self->entries_per_page );
    }
}

1;
__END__