comparison Lib/IMPL/Web/Handler/TTView.pm @ 235:a4d9126edcbb

code cleaning
author sergey
date Fri, 12 Oct 2012 02:08:51 +0400
parents 3cebcf6fdb9b
children abc7c26bf615
comparison
equal deleted inserted replaced
234:2530d1bb9638 235:a4d9126edcbb
36 my ( $this, $action, $next ) = @_; 36 my ( $this, $action, $next ) = @_;
37 37
38 my $result = $next ? $next->($action) : undef; 38 my $result = $next ? $next->($action) : undef;
39 39
40 my $vars = { 40 my $vars = {
41 data => $result, 41 model => $result,
42 action => $action, 42 action => $action,
43 app => $action->application, 43 app => $action->application,
44 LoadFactory => sub { 44 ImportClass => sub {
45 my $class = shift; 45 my $class = shift;
46 46
47 my $module = $class; 47 my $module = $class;
48 48
49 $module =~ s/::/\//g; 49 $module =~ s/::/\//g;