Mercurial > pub > Impl

changeset 132:42fbb38d4a48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author wizard
date Thu, 17 Jun 2010 17:35:36 +0400
parents 3df87ee58bee
children a07a66fd8d5c
files Lib/IMPL/Object/Meta.pm Lib/IMPL/Web/Application/ControllerUnit.pm
diffstat 2 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }
--- 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) = @_;