File Coverage

blib/lib/Data/Page/Navigation.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	12	12	100.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	3	0.0
total	50	54	92.5

package Data::Page::Navigation;
use strict;
use warnings;
use Data::Page;

our $VERSION = '0.06';

package
  Data::Page;

__PACKAGE__->mk_accessors(qw/pages_per_navigation/);

sub pages_in_navigation {
    my $self = shift;

    my $last_page = $self->last_page;
    my $pages_per_navigation = shift || $self->pages_per_navigation || 10;
    return wantarray ? ($self->first_page..$last_page) : [($self->first_page..$last_page)]
        if $pages_per_navigation >= $last_page;

    my $prev = $self->current_page - 1;
    my $next = $self->current_page + 1;
    my @ret = ($self->current_page);
    my $i=0;
    while(@ret < $pages_per_navigation){
        if($i%2){
            unshift(@ret,$prev) if $self->first_page <= $prev;
            --$prev;
        }else{
            push(@ret,$next) if $last_page >= $next;
            $next++;
        }
        $i++;
    }
    return wantarray ? @ret : \@ret;
}

sub first_navigation_page {
    my $self = shift;
    my @pages = $self->pages_in_navigation;
    shift @pages;
}

sub last_navigation_page {
    my $self = shift;
    my @pages = $self->pages_in_navigation;
    pop @pages;
}


1;
__END__