diff Lib/IMPL/Web/Application/ControllerUnit.pm @ 132:42fbb38d4a48

minor changes
author wizard
date Thu, 17 Jun 2010 17:35:36 +0400
parents 08753833173d
children a07a66fd8d5c
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/ControllerUnit.pm	Wed Jun 16 17:49:12 2010 +0400
+++ b/Lib/IMPL/Web/Application/ControllerUnit.pm	Thu Jun 17 17:35:36 2010 +0400
@@ -65,6 +65,12 @@
 	$self->class_data(CONTROLLER_METHODS)->{$_} = {} foreach @names;
 }
 
+sub transaction {
+	my ($self,$info) = @_;
+	
+	$info->{wrapper} = 'TransactionWrapper' unless $info->{wrapper};
+}
+
 sub InvokeAction {
 	my ($self,$method,$action) = @_;