Mercurial > pub > Impl
view Lib/IMPL/Class/Member.pm @ 44:32d2350fccf9
ORM
*Minor fixes
*Working tarnsform to sql
*Fixes to the sql traits
author | Sergey |
---|---|
date | Mon, 11 Jan 2010 01:42:00 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
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;