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 | 
