comparison 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
comparison
equal deleted inserted replaced
131:3df87ee58bee 132:42fbb38d4a48
61 61
62 sub transactions { 62 sub transactions {
63 my ($self,@names) = @_; 63 my ($self,@names) = @_;
64 64
65 $self->class_data(CONTROLLER_METHODS)->{$_} = {} foreach @names; 65 $self->class_data(CONTROLLER_METHODS)->{$_} = {} foreach @names;
66 }
67
68 sub transaction {
69 my ($self,$info) = @_;
70
71 $info->{wrapper} = 'TransactionWrapper' unless $info->{wrapper};
66 } 72 }
67 73
68 sub InvokeAction { 74 sub InvokeAction {
69 my ($self,$method,$action) = @_; 75 my ($self,$method,$action) = @_;
70 76