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 |
