Workflow::Action - Base class for Workflow actions
# Configure the Action... <action name="CreateUser" class="MyApp::Action::CreateUser"> <field name="username" is_required="yes"/> <field name="email" is_required="yes"/> <validator name="IsUniqueUser"> <arg>$username</arg> </validator> <validator name="IsValidEmail"> <arg>$email</arg> </validator> </action> # Define the action package MyApp::Action::CreateUser; use base qw( Workflow::Action ); use Workflow::Exception qw( workflow_error ); sub execute { my ( $self, $wf ) = @_; my $context = $wf->context; # Since 'username' and 'email' have already been validated we # don't need to check them for uniqueness, well-formedness, etc. my $user = eval { User->create({ username => $context->param( 'username' ), email => $context->param( 'email' ) }) }; # Wrap all errors returned... if ( $@ ) { workflow_error "Cannot create new user with name '", $context->param( 'username' ), "': $@"; } # Set the created user in the context for the application and/or # other actions (observers) to use $context->param( user => $user ); # return the username since it might be used elsewhere... return $user->username; }
This is the base class for all Workflow Actions. You do not have to use it as such but it is strongly recommended.
Add one or more Workflow::Action::InputFields to the action.
Return a list of Workflow::Action::InputField objects that are required.
Return a list of Workflow::Action::InputField objects that are optional.
Return a list of all Workflow::Action::InputField objects associated with this action.
Given the 'validator' configuration declarations in the action configuration, ask the Workflow::Factory for the Workflow::Validator object associated with each name and store that along with the arguments to be used, runtime and otherwise.
Get a list of all the validator hashrefs, each with two keys: 'validator' and 'args'. The 'validator' key contains the appropriate Workflow::Validator object, while 'args' contains an arrayref of arguments to pass to the validator, some of which may need to be evaluated at runtime.
Run through all validators for this action. If any fail they will throw a Workflow::Exception, the validation subclass.
Subclasses must implement -- this will perform the actual work. It's not required that you return anything, but if the action may be used in a Workflow::State object that has multiple resulting states you should return a simple scalar for a return value.
#=head3 add_fields
#=head3 init( $workflow, \%params )
Workflow
Workflow::Factory
Copyright (c) 2003-2004 Chris Winters. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Chris Winters <chris@cwinters.com>
To install Workflow, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Workflow
CPAN shell
perl -MCPAN -e shell install Workflow
For more information on module installation, please visit the detailed CPAN module installation guide.