# HG changeset patch
# User wizard
# Date 1276781736 -14400
# Node ID 42fbb38d4a4877f115843550c3594882f7c9e341
# Parent  3df87ee58bee74dbde62d71c868aaa27d8dc7844
minor changes

diff -r 3df87ee58bee -r 42fbb38d4a48 Lib/IMPL/Object/Meta.pm
--- a/Lib/IMPL/Object/Meta.pm	Wed Jun 16 17:49:12 2010 +0400
+++ b/Lib/IMPL/Object/Meta.pm	Thu Jun 17 17:35:36 2010 +0400
@@ -14,7 +14,7 @@
     my $class = shift;
     my $caller = caller;
     my $meta = $class->surrogate();
-    $meta->IMPL::Object::Meta::Container(caller);
+    $meta->IMPL::Object::Meta::Container(scalar caller);
     $meta->callCTOR(@_);
     $caller->set_meta($meta);
 }
diff -r 3df87ee58bee -r 42fbb38d4a48 Lib/IMPL/Web/Application/ControllerUnit.pm
--- 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) = @_;