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.

0.04: perl-5.6.1 compatible, tests added

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