File Coverage

blib/lib/HTML/Tested/List/Pager.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	4	0.0
total	21	27	77.7

use strict;
use warnings FATAL => 'all';

package HTML::Tested::List::Pager;
use HTML::Tested::Value;

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

sub entries_per_page { return shift()->{entries_per_page}; }

sub init {
	my ($self, $the_list, $parent) = @_;
	my $ln = $the_list->name;
	$parent->ht_add_widget("HTML::Tested::Value", "$ln\_current_page");
}

sub render {
}

1;