| Querylet-CGI documentation | Contained in the Querylet-CGI distribution. |
Querylet::CGI::Auto - run a querylet as context suggests
version 0.141
$Id: /my/cs/projects/q/cgi/trunk/lib/Querylet/CGI/Auto.pm 28047 2006-11-14T23:39:22.135386Z rjbs $
use Querylet;
use Querylet::CGI::Auto;
use Querylet::Output::Text;
query:
SELECT firstname, age
FROM people
WHERE lastname = ?
ORDER BY firstname
input type: auto
output format: text
input: lastname
query parameter: $input->{lastname}
Querylet::CGI::Auto registers the "auto" input handler, which will use "cgi" if the GATEWAY_ENVIRONMENT environment variable is set, and "term" otherwise. Since Querylet::CGI will set the output format on its own, the output format should be set to the type to be used if running outside of a CGI environment.
default_typeQuerylet::CGI::Auto acts as a Querylet::Input module, and registers itself as an input handler when used. The default type to register is 'auto'
handlerThe default registered handler will (ack!) use magic goto to switch to the correct handler, based on the environment.
Ricardo SIGNES, <rjbs@cpan.org>
Please report any bugs or feature requests to
bug-querylet-cgi@rt.cpan.org, or through the web interface at
http://rt.cpan.org. I will be notified, and then you'll automatically be
notified of progress on your bug as I make changes.
Copyright 2004-2006 Ricardo SIGNES, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Querylet-CGI documentation | Contained in the Querylet-CGI distribution. |
package Querylet::CGI::Auto; use base qw(Querylet::Input); use warnings; use strict;
our $VERSION = '0.141';
sub default_type { 'auto' }
sub handler { \&_auto_cgi } sub _auto_cgi { if ($ENV{GATEWAY_INTERFACE}) { require Querylet::CGI; goto &Querylet::CGI::_from_cgi; } else { goto &Querylet::Query::from_term; } }
1;