File Coverage

blib/lib/Data/Pageset/Render.pm

Criterion	Covered	Total	%
statement	58	64	90.6
branch	17	24	70.8
condition	6	12	50.0
subroutine	9	11	81.8
pod	4	4	100.0
total	94	115	81.7

package Data::Pageset::Render;

###########################################################################
# Data::Pageset::Render
# Mark Grimes
# $Id: Render.pm 464 2009-06-05 19:49:45Z mgrimes $
#
# Extension to the Data::Pageset module that simplifies the creation of HTML
# page navigation
# Copyright (c) 2008 Mark Grimes ([e-mail]).
# All rights reserved. This program is free software; you can redistribute
# it and/or modify it under the same terms as Perl itself.
#
# Thanks!
#
###########################################################################

use strict;
use warnings;

use base 'Data::Pageset';
our $VERSION = '0.14';

sub new {
    my ( $class, $cfg ) = @_;

    my $self = shift->SUPER::new(@_);

    $self->{link_format}         = $cfg->{link_format};
    $self->{current_page_format} = $cfg->{current_page_format}
      || _strip_link_from_format( $cfg->{link_format} );

    return $self;
}

sub html {
    my $self = shift;
    my $frmt = shift || $self->{link_format};
    my $frmt_for_current =
         shift
      || $self->{current_page_format}
      || _strip_link_from_format($frmt);

    my $txt;

    if ( $self->current_page > 1 ) {
        $txt .= _sprintf( $frmt, $self->current_page - 1, '<<' );
    }
    if ( $self->previous_set ) {
        if ( $self->previous_set < _min( @{ $self->pages_in_set } ) ) {
            my $chunk = $frmt;
            $txt .= _sprintf( $frmt, 1 );
            $txt .= _sprintf( $frmt, $self->previous_set, '...' );
        }
    }
    for my $num ( @{ $self->pages_in_set } ) {
        if ( $num == $self->current_page ) {
            $txt .= _sprintf( $frmt_for_current, $num );
        } else {
            $txt .= _sprintf( $frmt, $num );
        }
    }
    if ( $self->next_set ) {
        if ( $self->next_set > _max( @{ $self->pages_in_set } ) ) {
            $txt .= _sprintf( $frmt, $self->next_set, '...' );
            $txt .= _sprintf( $frmt, $self->last_page );
        }
    }
    if ( $self->current_page < $self->last_page ) {
        $txt .= _sprintf( $frmt, $self->current_page + 1, '>>' );
    }

    return $txt;
}

sub link_format {
    my ( $self, $frmt ) = @_;

    $self->{link_format} = $frmt if defined $frmt;
    return $self->{link_format};
}

sub current_page_format {
    my ( $self, $frmt ) = @_;

    $self->{current_page_format} = $frmt if defined $frmt;
    return $self->{current_page_format};
}

sub _strip_link_from_format {
    my $frmt = shift;

    return unless defined $frmt;

    $frmt =~ s{]*?>}{};           # strip the first  link
    $frmt =~ s{(.*)]*?>}{$1};    # strip the last  link

    return $frmt;
}

sub _sprintf {
    my $frmt = shift;
    my $p    = shift;
    my $l    = shift || $p;            # default for $a is current page num

    $frmt =~ s{ \%p }{$p}gx;           # substitute the page number for %p
    $frmt =~ s{ \%a }{$l}gx;           # substitute the text for %a

    return $frmt;
}

sub _min {
    my ( $min, @list ) = @_;
    for (@list) {
        $min = $_ if $_ < $min;
    }
    return $min;
}

sub _max {
    my ( $max, @list ) = @_;
    for (@list) {
        $max = $_ if $_ > $max;
    }
    return $max;
}

1;

__END__