File Coverage

blib/lib/HTML/Split/Pager.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	10	14	71.4
condition	3	5	60.0
subroutine	7	7	100.0
pod	3	3	100.0
total	53	60	88.3

package HTML::Split::Pager;

use strict;
use warnings;

use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_ro_accessors(qw( total_pages prev_page next_page ));

use HTML::Split;

sub new {
    my $class = shift;
    my %param = @_;

    return warn q{'html' is required}       unless $param{html};
    return warn q{'length' is required}     unless $param{length};
    return warn q{'length' is not numeric.} unless $param{length} =~ /^\d+$/;

    my @pages = HTML::Split->split(
        html        => $param{html},
        length      => $param{length},
        extend_tags => $param{extend_tags} || [],
    );

    my $self = bless {
        pages       => \@pages,
        total_pages => scalar @pages,
    }, $class;

    $self->current_page(1);

    return $self;
}

sub current_page {
    my ($self, $page) = @_;
    if (defined $page && $page > 0) {
        $self->{current_page} = $page;
        $self->{prev_page} = ($page - 1 > 0) ? $page - 1 : undef;
        $self->{next_page} = ($page + 1 <= $self->total_pages) ? $page + 1 : undef;
        return $self;
    }
    return $self->{current_page};
}

sub text {
    my $self = shift;
    return wantarray ? @{ $self->{pages} }
                     : $self->{pages}[$self->current_page - 1];
}

1;
__END__