NAME
Data::Page::Set - Print page indexes
SYNOPSIS
use Data::Page;
use Data::Page::Set;
my @data = 0 .. 300;
my $page = Data::Page->new( scalar @data, 5, shift );
my $pageset = Data::Page::Set->new( $page, 6, {} );
print $pageset->show;
DESCRIPTION
Data::Page::Set->new( $page, $setsize, $showhash );
Arguments
$page
[Required]-
A Data::Page object.
$setsize
[Required]-
The size of the pageset: If you have a page object with 20 pages, but you only want to show
<< < 4 5 6 7 8 > >>
Then setsize should be 5 because we're only showing 5 page indexes.
$showhash
-
A hash with zero or more of the following keys, with a coderef as value wich is executed when we are about to print:
- show_first
-
link to the first page
- show_no_first
-
no link to the first page
- show_prev
-
previous page link
- show_no_prev
-
no link to the previous
- show_next
-
next page link
- show_no_next
-
No next page link
- show_last
-
Last page link
- show_no_last
-
No last page link
- show_page
-
A link to another page
- show_current_page
-
The current page
- grepper
-
Executed in grep { $code->($_) } before the result is joined
- joiner
-
Executed and used as the first argument to join
HISTORY
0.02: Previous and next are show when current page not is first and last resp.
TODO
Improve joiner/grepper
Joiner and grepper could be replaced with one routine that constructs the return value.
Generic backend
Data::Page is atm the only pager supported, but we could do better than that.
AUTHOR
Berik Visschers <berikv@xs4all.nl>
COPYRIGHT
Copyright 2005 by Berik Visschers <berikv@xs4all.nl>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 221:
You forgot a '=back' before '=head1'