Data::Pager(3pm) User Contributed Perl Documentation Data::Pager(3pm)NAME
Data::Pager - flexible data pager
SYNOPSIS
use Data::Pager;
my $pager = Data::Pager->new({
current => 100,
perpage => 10,
offset => 5,
limit => 2000,
});
#~ accessors:
$pager->current; # 100
$pager->next; # 101
$pager->prev; # 99
$pager->limit; # 2000
$pager->start; # 1 # not typical start of a programmer
$pager->final; #
# 400 (which denotes 2000 / 5 pager links)
$pager->end; # /
$pager->from; # 495 (may serve in SQL LIMIT clause)
$pager->to; # 500 (may serve in SQL LIMIT clause)
$pager->list; # 95 96 97 98 99 100 101 102 103 104 105
DESCRIPTION
This class implements the familiar pager where the current position is centered.
CONSTRUCTOR
new
my $pager = Data::Pager->new({
current => 1, # this is the current pager position
perpage => 10, # the pager consists of this number of links (defaults to 10)
offset => 5, # this is the number of results (fetched from the DB for example) per result
limit => 100, # how far is the pager allowed
});
# sample output from html table:
id ... ..... ...
1. ... ..... ...
2. ... ..... ...
3. ... ..... ...
4. ... ..... ...
5. ... ..... ...
1 2 3 4 5 6 7 8 9 10
Returns object or undef if current position is beyond the limit.
METHODS
current
$pager->current();
Returns the current pager position.
set_current($digit)
$pager->set_current(850);
$pager->set_current(850)->next();
Sets the current pager position. Returns the pager object on succes, undef on false.
next
Returns the next pager position or undef if this is the last one.
prev
Returns the previous pager position or undef if this is the first one.
start
Returns 1 - the start pager position.
end
Returns the end pager position.
first
Returns the first pager position for this result set.
last
Returns the last pager position for this result set.
from
'1' => {
'to' => 5,
'next' => 2,
'prev' => undef,
'from' => 0
},
'2' => {
'to' => 10,
'next' => 3,
'prev' => 1,
'from' => 5
},
...
Returns the start result this pager position refers to.
to
Returns the end result this pager position refers to.
list
@_ = $pager->list;
$_ = $pager->list;
Returns the pager links for this result set. In list context returns the resulting list. In scalar context returns reference to the
resulting list.
# note the alignment
$pager->set_current(10);
print $pager->list; # 6 7 8 9 [10] 11 12 13 14 15
$pager->set_current(33);
print $pager->list; # 28 29 30 31 32 [33] 34 35 36 37 38
SEE ALSO
Data::Page
BUGS
What BUGS?
AUTHOR
Vidul Nikolaev Petrov, vidul@cpan.org
COPYRIGHT
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.10.0 2006-04-04 Data::Pager(3pm)
Check Out this Related Man Page
IO::Pager(3) User Contributed Perl Documentation IO::Pager(3)NAME
IO::Pager - Select a pager and pipe text to it if destination is a TTY
SYNOPSIS
# Select an appropriate pager and set the PAGER environment variable
use IO::Pager;
# Optionally, pipe output to it
{
# TIMTOWTDI, not an exhaustive list but you can infer the others
my $token = IO::Pager::open *STDOUT; # Unbuffered is default subclass
my $token = new IO::Pager *STDOUT, 'Unbuffered'; # Specify subclass
my $token = IO::Pager::Unbuffered::open *STDOUT; # Must 'use' class!
my $token = new IO::Pager::Unbuffered *STDOUT; # Must 'use' class!
print <<" HEREDOC" ;
...
A bunch of text later
HEREDOC
# $token passes out of scope and filehandle is automagically closed
}
{
# You can also use scalar filehandles...
my $token = IO::Pager::open($FH) or warn($!);
print $FH "No globs or barewords for us thanks!
";
}
{
# ...or an object interface
my $token = new IO::Pager::Buffered;
$token->print("OO shiny...
");
}
DESCRIPTION
IO::Pager can be used to locate an available pager and set the PAGER environment variable (see "NOTES"). It is also a factory for creating
I/O objects such as IO::Pager::Buffered and IO::Pager::Unbuffered.
IO::Pager subclasses are designed to programmatically decide whether or not to pipe a filehandle's output to a program specified in PAGER.
Subclasses may implement only the IO handle methods desired and inherit the remainder of those outlined below from IO::Pager. For anything
else, YMMV. See the appropriate subclass for implementation specific details.
METHODS
new( [FILEHANDLE], [SUBCLASS] )
Almost identical to open, except that you will get an IO::Handle back if there's no TTY to allow for IO::Pager agnostic programming.
open( [FILEHANDLE], [SUBCLASS] )
Instantiate a new IO::Pager, which will paginate output sent to FILEHANDLE if interacting with a TTY.
Save the return value to check for errors, use as an object, or for implict close of OO handles when the variable passes out of scope.
FILEHANDLE
You may provide a glob or scalar.
Defaults to currently select()-ed FILEHANDLE.
SUBCLASS
Specifies which variety of IO::Pager to create. This accepts fully qualified packages IO::Pager::Buffered, or simply the third portion
of the package name Buffered for brevity.
Defaults to IO::Pager::Unbuffered.
Returns false and sets $! on failure, same as perl's "open".
PID
Call this method on the token returned by "open" to get the process identifier for the child process i.e; pager; if you need to perform
some long term process management e.g; perl's "waitpid"
You can also access the PID by numifying the instantiation token like so:
my $child = $token+0;
close( FILEHANDLE )
Explicitly close the filehandle, this stops any redirection of output on FILEHANDLE that may have been warranted.
This does not default to the current filehandle.
Alternatively, you may rely upon the implicit close of lexical handles as they pass out of scope e.g;
{
IO::Pager::open local *RIBBIT;
print RIBBIT "No toad sexing allowed";
...
}
#The filehandle is closed to additional output
{
my $token = new IO::Pager::Buffered;
$token->print("I like trains");
...
}
#The string "I like trains" is flushed to the pager, and the handle closed
binmode( FILEHANDLE )
Used to set the I/O layer a.k.a. discipline of a filehandle, such as ':utf8' for UTF-8 encoding.
print ( FILEHANDLE LIST )
print() to the filehandle.
printf ( FILEHANDLE FORMAT, LIST )
printf() to the filehandle.
syswrite( FILEHANDLE, SCALAR, [LENGTH], [OFFSET] )
syswrite() to the filehandle.
ENVIRONMENT
PAGER
The location of the default pager.
PATH
If the location in PAGER is not absolute, PATH may be searched.
See "NOTES" for more information.
FILES
IO::Pager may fall back to these binaries in order if PAGER is not executable.
/etc/alternatives/pager
/usr/local/bin/less
/usr/bin/less
/usr/bin/more
See "NOTES" for more information.
NOTES
The algorithm for determining which pager to use is as follows:
1. Defer to PAGER
If the PAGER environment variable is set, use the pager it identifies, unless this pager is not available.
2. Usual suspects
Try the standard, hardcoded paths in "FILES".
3. File::Which
If File::Which is available, use the first pager possible amongst "less", "most", "w3m", "lv", "pg" and more.
4. more
Set PAGER to "more", and cross our fingers.
Steps 1, 3 and 4 rely upon the PATH environment variable.
SEE ALSO
IO::Pager::Buffered, IO::Pager::Unbuffered, IO::Pager::Page,
IO::Page, Meta::Tool::Less
AUTHOR
Jerrad Pierce <jpierce@cpan.org>
Florent Angly <florent.angly@gmail.com>
This module was inspired by Monte Mitzelfelt's IO::Page 0.02
COPYRIGHT AND LICENSE
Copyright (C) 2003-2012 Jerrad Pierce
o Thou shalt not claim ownership of unmodified materials.
o Thou shalt not claim whole ownership of modified materials.
o Thou shalt grant the indemnity of the provider of materials.
o Thou shalt use and dispense freely without other restrictions.
Or, if you prefer:
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.0 or, at
your option, any later version of Perl 5 you may have available.
perl v5.18.2 2013-04-06 IO::Pager(3)