io::pager::unbuffered(3) [mojave man page]

IO::Pager::Unbuffered(3)				User Contributed Perl Documentation				  IO::Pager::Unbuffered(3)

NAME

       IO::Pager::Unbuffered - Pipe output to PAGER if destination is a TTY

SYNOPSIS

	 use IO::Pager::Unbuffered;
	 {
	   local $STDOUT = IO::Pager::Unbuffered::open *STDOUT;
	   print <<"  HEREDOC" ;
	   ...
	   A bunch of text later
	   HEREDOC
	 }

	 {
	   # You can also use scalar filehandles...
	   my $token = IO::Pager::Unbuffered::open($FH) or warn($!);
	   print $FH "No globs or barewords for us thanks!
";
	 }

	 {
	   # ...or an object interface
	   my $token = new IO::Pager::Unbuffered;

	   $token->print("OO shiny...
");
	 }

DESCRIPTION

       IO::Pager subclasses are designed to programmatically decide whether or not to pipe a filehandle's output to a program specified in PAGER;
       determined and set by IO::Pager at runtime if not yet defined.

       See IO::Pager for method details.

METHODS

       All methods are inherited from IO::Pager; except for instantiation.

CAVEATS

       You probably want to do something with SIGPIPE eg;

	 eval {
	   $SIG{PIPE} = sub { die };
	   local $STDOUT = IO::Pager::open(*STDOUT);

	   while (1) {
	     # Do something
	   }
	 }

	 # Do something else

SEE ALSO

       IO::Pager, IO::Pager::Buffered, IO::Pager::Page,

AUTHOR

       Jerrad Pierce <jpierce@cpan.org>

       Florent Angly <florent.angly@gmail.com>

       This module was inspired by Monte Mitzelfelt's IO::Page 0.02

       Significant proddage provided by Tye McQueen.

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::Unbuffered(3)

Class::DBI::Pager(3pm)					User Contributed Perl Documentation				    Class::DBI::Pager(3pm)

NAME

       Class::DBI::Pager - Pager utility for Class::DBI

SYNOPSIS

	 package CD;
	 use base qw(Class::DBI);
	 __PACKAGE__->set_db(...);

	 use Class::DBI::Pager;        # just use it

	 # then, in client code!
	 package main;

	 use CD;
	 my $pager = CD->pager(20, 1);	   # ($items_per_page, $current_page)
	 my @disks = $pager->retrieve_all;

DESCRIPTION

       Class::DBI::Pager is a plugin for Class::DBI, which glues Data::Page with Class::DBI. This module reduces your work a lot, for example when
       you have to do something like:

	 * retrieve objects from a database
	 * display objects with 20 items per page

       In addition, your work will be reduced more, when you use Template-Toolkit as your templating engine. See "EXAMPLE" for details.

EXAMPLE

	 # Controller: (MVC's C)
	 my $query    = CGI->new;
	 my $template = Template->new;

	 my $pager    = Film->pager(20, $query->param('page') || 1);
	 my $movies   = $pager->retrieve_all;
	 $template->process($input, {
	     movies => $movies,
	     pager  => $pager,
	 });

	 # View: (MVC's V)
	 Matched [% pager.total_entries %] items.

	 [% WHILE (movie = movies.next) %]
	 Title: [% movie.title | html %]
	 [% END %]

	 ### navigation like: [1] [2] [3]
	 [% FOREACH num = [pager.first_page .. pager.last_page] %]
	 [% IF num == pager.current_page %][[% num %]]
	 [% ELSE %]<a href="display?page=[% num %]">[[% num %]]</a>[% END %]
	 [% END %]

	 ### navigation like: prev 20 | next 20
	 [% IF pager.previous_page %]
	 <a href="display?page=[% pager.previous_page %]">
	 prev [% pager.entries_per_page %]</a> |
	 [% END %]
	 [% IF pager.next_page %]
	 <a href="display?page=[% pager.next_page %]">
	 next [% pager.entries_per_page %]</a>
	 [% END %]

NOTE 
/ TODO
       This modules internally retrieves itertors, then creates "Data::Page" object for paging utility. Using SQL clauses "LIMIT" and/or "OFFSET"
       with "DBIx::Pager" might be more memory efficient.

AUTHOR

       Tatsuhiko Miyagawa <miyagawa@bulknews.net>

       Original idea by Tomohiro Ikebe <ikebe@cpan.org>

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

       Class::DBI, Data::Page

perl v5.10.0							    2006-03-01						    Class::DBI::Pager(3pm)