Mercurial > pub > Impl
view Lib/IMPL/Class/Member.pm @ 81:077357224bec
IMPL::Web::Security alpha version
IMPL::Security improovements
author | Sergey |
---|---|
date | Wed, 07 Apr 2010 14:45:34 +0400 |
parents | 16ada169ca75 |
children | 76515373dac0 |
line wrap: on
line source
package IMPL::Class::Member; use strict; use base qw(Exporter); our @EXPORT = qw(virtual public private protected); use IMPL::Class::Meta; require IMPL::Class::MemberInfo; use constant { MOD_PUBLIC => 1, MOD_PROTECTED => 2, MOD_PRIVATE => 3 }; sub virtual($) { $_[0]->Virtual(1); $_[0]; } sub public($) { $_[0]->Access(MOD_PUBLIC); $_[0]->Implement; $_[0]; } sub private($) { $_[0]->Access(MOD_PRIVATE); $_[0]->Implement; $_[0]; } sub protected($) { $_[0]->Access(MOD_PROTECTED); $_[0]->Implement; $_[0]; } 1;