File Coverage

blib/lib/HTML/PageIndex.pm

Criterion	Covered	Total	%
statement	6	51	11.7
branch	0	26	0.0
condition			n/a
subroutine	2	6	33.3
pod	1	2	50.0
total	9	85	10.5

package HTML::PageIndex;

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
use strict;

require Exporter;

@ISA=qw(Exporter);
@EXPORT=qw();
@EXPORT_OK=qw();

$VERSION = '0.3';

sub new {
	my ($class) = @_;
	my ($self) = {};
	bless ($self, $class);
	return $self;
}

################################################################################
# Public methods

sub makeindex {
	my ($self, $total, $current, $Base, $Arg, $np) =@_;

	if (!$Base) { print __PACKAGE__.": Base URL not provided"; return;}

	$self->{'BASE'} = $Base;
	$self->{'ARG'} = $Arg if $Arg;

	if ($total <= 1) {
		return "";
	}

	# Handle defaults and guard against absurd input values

	$current = 1 if $current < 1;
	$current = $total if $current > $total;
	$np=0 if !$np;

	return $self->_text_numbers($total, $current,$np);
}



################################################################################
# Private methods

sub _text_numbers {
	my ($self, $total, $current,$np) = @_;

	my ($prev) = $current - 1;
	my ($next) = $current + 1;

	my ($out);

	# Display [Prev] unless on first page

	if ($current > 1) {
		$out .= "
			$self->_url($prev) .
			"\"> [Prev] \n";
	} else {
		if ($np > 0) {
			$out .= " [Prev] \n";
		}
	}

	# Display 1 2 3 etc...

	my ($i);

	for ($i = 1; $i<=$total; $i++) {
		if ($i == $current) {
			$out .= " $i \n";
		} else {
			$out .= "
				$self->_url($i) .
				"\"> $i \n";
		}
	}

	# Display [Next] unless on last page

	if ($current < $total) {
		$out .= "
			$self->_url($next) .
			"\"> [Next] \n";
	} else {
		if ($np > 0) {
			$out .= " [Next] \n";
		}
	}

	return $out;
}

sub _url {
	my ($self, $tagValue) = @_;

	my ($url) = $self->{'BASE'};
	my ($arg) = $self->{'ARG'};

	if ($arg) {

		$url =~ s/\&$arg=[^&]*//g;
		$url =~ s/\?$arg=[^&]*&/?/g;
		$url =~ s/\?$arg=[^&]*$//;

		if ($url =~ /\?/) {
			$url .= "&$arg=$tagValue";
		} else {
			$url .= "?$arg=$tagValue";
		}
	}

	return $url;
}


1; # wheeee;

__END__