Params::CallbackRequest 1.19

Params::CallbackRequest is a Perl module that provides functional and object-oriented callbacks to method and function parameters. Callbacks may be either code references provided to the new() constructor, or methods defined in subclasses of Params::Callback. Callbacks are triggered either for every call to the Params::CallbackRequest request() method, or by specially named keys in the parameters to request().<br /><br />The idea behind this module is to provide a sort of plugin architecture for Perl templating systems. Callbacks are triggered by the contents of a request to the Perl templating server, before the templating system itself executes. This approach allows you to carry out logical processing of data submitted from a form, to affect the contents of the request parameters before they're passed to the templating system for processing, and even to redirect or abort the request before the templating system handles it.<br /><br />SYNOPSIS<br /><br />Functional parameter-triggered callbacks:<br /><br /> use strict;<br /> use Params::CallbackRequest;<br /><br /> # Create a callback function.<br /> sub calc_time {<br /> my $cb = shift;<br /> my $params = $cb->params;<br /> my $val = $cb->value;<br /> $params->{my_time} = localtime($val || time);<br /> }<br /><br /> # Set up a callback request object.<br /> my $cb_request = Params::CallbackRequest->new(<br /> callbacks => [ { cb_key => 'calc_time',<br /> pkg_key => 'myCallbacker',<br /> cb => &calc_time } ]<br /> );<br /><br /> # Request callback execution.<br /> my %params = ('myCallbacker|calc_time_cb' => 1);<br /> $cb_request->request(%params);<br /><br /> # Demonstrate the result.<br /> print "The time is $params{my_time}<br />";<br /><br />Or, in a subclass of Params::Callback:<br /><br /> package MyApp::Callback;<br /> use base qw(Params::Callback);<br /> __PACKAGE__->register_subclass( class_key => 'myCallbacker' );<br /><br /> # Set up a callback method.<br /> sub calc_time : Callback {<br /> my $self = shift;<br /> my $params = $self->request_params;<br /> my $val = $cb->value;<br /> $params->{my_time} = localtime($val || time);<br /> }<br /><br />And then, in your application:<br /><br /> # Load order is important here!<br /> use MyApp::Callback;<br /> use Params::CallbackRequest;<br /><br /> my $cb_request = Params::Callback->new( cb_classes => [qw(myCallbacker)] );<br /> my %params = ('myCallbacker|calc_time_cb' => 1);<br /> $cb_request->request(%params);<br /> print "The time is $params{my_time}<br />";

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Calc Time,  Callback,  Callbacks,  Cbgtvalue,  Contents,  Localtimeval,  Method,  Mycallbacker Calc Time,  Parameters,  Params,  Paramscallbackrequest,  Paramscallbackrequest 1 19,  Paramsgtmy Time,  Print,  Request,  Requestgtrequestparams,  Shift,  System,  Templating
Users rating:	0/10