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 |