Mercurial > pub > Impl
comparison Lib/IMPL/Web/Security/Session.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 | f017c0d7527c |
| children | d1676be8afcc |
comparison
equal
deleted
inserted
replaced
| 165:76515373dac0 | 166:4267a2ac3d46 |
|---|---|
| 1 package IMPL::Web::Security::Session; | 1 package IMPL::Web::Security::Session; |
| 2 use strict; | 2 use strict; |
| 3 use base qw(IMPL::Security::Context); | 3 use parent qw(IMPL::Security::Context); |
| 4 | 4 |
| 5 use IMPL::Class::Property; | 5 use IMPL::Class::Property; |
| 6 | 6 |
| 7 __PACKAGE__->PassThroughArgs; | 7 __PACKAGE__->PassThroughArgs; |
| 8 | 8 |
| 25 =begin code | 25 =begin code |
| 26 | 26 |
| 27 # define a custom session for the application | 27 # define a custom session for the application |
| 28 | 28 |
| 29 package App::Session; | 29 package App::Session; |
| 30 use base qw(IMPL::Web::Security::Session); | 30 use parent qw(IMPL::Web::Security::Session); |
| 31 | 31 |
| 32 use IMPL::Class::Property; | 32 use IMPL::Class::Property; |
| 33 | 33 |
| 34 BEGIN { | 34 BEGIN { |
| 35 public property transactionId => prop_all; | 35 public property transactionId => prop_all; |
| 37 | 37 |
| 38 =end code | 38 =end code |
| 39 | 39 |
| 40 =head1 DESCRIPTION | 40 =head1 DESCRIPTION |
| 41 | 41 |
| 42 C<use base qw(IMPL::Security::Context)> | 42 C<use parent qw(IMPL::Security::Context)> |
| 43 | 43 |
| 44 Представляет собой контекст безопасности, имеет идентификатор. Является базовым классом | 44 Представляет собой контекст безопасности, имеет идентификатор. Является базовым классом |
| 45 для расширения дополнительными атрибутами. | 45 для расширения дополнительными атрибутами. |
| 46 | 46 |
| 47 =head1 MEMBERS | 47 =head1 MEMBERS |
