# simple html pager class


use strict;
use warnings;

my $pager = Pager->new();

$pager->uri('foo.com/x?bar=1');
$pager->cnt(25);               # from pre-query count
$pager->page( $ARGV[0] || 1 );   # requested page from query arg
$pager->limit(3);              # recs per page

print "cnt: " . $pager->cnt . "\n";
print "page: " . $pager->page . "\n";
print "limit: " . $pager->limit . "\n";
print "skip (derived): " . $pager->skip . "\n";
print "total_pages: " . $pager->total_pages . "\n";
print "html: \n" . $pager->html . "\n";

exit;


### Pager ###
package Pager;

use strict;
use warnings;