NAME

MPMinus::Transaction - MVC SKEL Transaction (MST) pattern

VERSION

Version 1.06

SYNOPSIS

my $q = new CGI;
my ($actObject, $actEvent) = split /[,]/, $q->param('action') || '';
$actObject = 'default' unless $actObject && $m->ActionCheck($actObject);
$actEvent = $actEvent && $actEvent =~ /go/ ? 'go' : '';

$r->content_type( $m->getActionRecord($actObject)->{content_type} );

my $status = $m->ActionTransaction($actObject,$actEvent);

my $status = $m->ActionExecute($actObject,'cdeny');

DESCRIPTION

Working with MVC SKEL Transactions (MST) pattern.

See MVC SKEL Transaction MPMinus::Manual

METHODS

ActionTransaction

my $status = $m->ActionTransaction( $actObject, $actEvent );

Start MVC SKEL Transaction by $actObject and $actEvent

ActionExecute

my $status = $m->ActionExecute( $actObject, $handler_name );

Execute $handler_name action by $actObject.

$handler_name must be: mproc, vform, cchck, caccess, cdeny

ActionCheck

my $status = $m->ActionCheck( $actObject );

Check existing status of $actObject handler

getActionRecord

my $struct = $m->getActionRecord( $actObject );

Returns meta record of $actObject

HISTORY

See CHANGES file

DEPENDENCIES

MPMinus, CTK::Util

TO DO

See TODO file

BUGS

* none noted

SEE ALSO

MPMinus, CTK::Util

AUTHOR

Serż Minus (Sergey Lepenkov) http://www.serzik.com <abalama@cpan.org>

COPYRIGHT

Copyright (C) 1998-2019 D&D Corporation. All Rights Reserved

LICENSE

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

See LICENSE file and https://dev.perl.org/licenses/