view Lib/IMPL/Class/Member.pm @ 239:23daf2fae33a

*security subsytem bugfixes *HttpResponse: cookies which values are set to undefined will be deleted from browser
author sergey
date Tue, 16 Oct 2012 20:14:11 +0400
parents 431db7034a88
children 6253872024a4
line wrap: on
line source

package IMPL::Class::Member;
use strict;
use parent qw(Exporter);
our @EXPORT = qw(virtual public private protected);

use IMPL::Class::Meta;
require IMPL::Class::MemberInfo;

#TODO: remove
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;