Mercurial > pub > Impl
comparison Lib/IMPL/Web/QueryHandler.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 | 9d24db321029 |
| children | d1676be8afcc |
comparison
equal
deleted
inserted
replaced
| 165:76515373dac0 | 166:4267a2ac3d46 |
|---|---|
| 1 package IMPL::Web::QueryHandler; | 1 package IMPL::Web::QueryHandler; |
| 2 | 2 |
| 3 use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable); | 3 use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable); |
| 4 use IMPL::Class::Property; | 4 use IMPL::Class::Property; |
| 5 | 5 |
| 6 __PACKAGE__->PassThroughArgs; | 6 __PACKAGE__->PassThroughArgs; |
| 7 | 7 |
| 8 use IMPL::Exception; | 8 use IMPL::Exception; |
| 37 | 37 |
| 38 =begin code | 38 =begin code |
| 39 | 39 |
| 40 package MyHandler; | 40 package MyHandler; |
| 41 | 41 |
| 42 use base qw(IMPL::Web::QueryHandler); | 42 use parent qw(IMPL::Web::QueryHandler); |
| 43 | 43 |
| 44 sub CTOR { | 44 sub CTOR { |
| 45 my ($this,%args) = @_; | 45 my ($this,%args) = @_; |
| 46 | 46 |
| 47 } | 47 } |
