Mercurial > pub > Impl
comparison Lib/IMPL/Web/Application/ControllerUnit.pm @ 166:4267a2ac3d46
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'
author | wizard |
---|---|
date | Sat, 23 Apr 2011 23:12:06 +0400 |
parents | 3f09584bf189 |
children | b88b7fe60aa3 |
comparison
equal
deleted
inserted
replaced
165:76515373dac0 | 166:4267a2ac3d46 |
---|---|
1 use strict; | 1 use strict; |
2 package IMPL::Web::Application::ControllerUnit; | 2 package IMPL::Web::Application::ControllerUnit; |
3 use base qw(IMPL::Object); | 3 use parent qw(IMPL::Object); |
4 | 4 |
5 use IMPL::Class::Property; | 5 use IMPL::Class::Property; |
6 use IMPL::DOM::Transform::PostToDOM; | 6 use IMPL::DOM::Transform::PostToDOM; |
7 use IMPL::DOM::Schema; | 7 use IMPL::DOM::Schema; |
8 use Class::Inspector; | 8 use Class::Inspector; |
382 | 382 |
383 =begin code | 383 =begin code |
384 | 384 |
385 package MyBooksUnit; | 385 package MyBooksUnit; |
386 use strict; | 386 use strict; |
387 use base qw(IMPL::Web::Application::ControllerUnit); | 387 use parent qw(IMPL::Web::Application::ControllerUnit); |
388 | 388 |
389 __PACKAGE__->PassThroughArgs; | 389 __PACKAGE__->PassThroughArgs; |
390 | 390 |
391 sub unitDataClass { 'My::Books' } | 391 sub unitDataClass { 'My::Books' } |
392 | 392 |