Mercurial > pub > Impl
diff lib/IMPL/Class/Member.pm @ 427:09e0086a82a7 ref20150831 tip
Merge
author | cin |
---|---|
date | Tue, 15 May 2018 00:51:33 +0300 |
parents | eed50c01e758 c27434cdd611 |
children |
line wrap: on
line diff
--- a/lib/IMPL/Class/Member.pm Tue May 15 00:51:01 2018 +0300 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,38 +0,0 @@ -package IMPL::Class::Member; -use strict; -use parent qw(Exporter); -our @EXPORT = qw(&public &private &protected &_direct); - - -use IMPL::Const qw(:access); - -require IMPL::Class::MemberInfo; - -sub public($) { - my $info = shift; - $info->{access} = ACCESS_PUBLIC; - my $implementor = delete $info->{implementor}; - $implementor->Implement($info); -} - -sub private($) { - my $info = shift; - $info->{access} = ACCESS_PRIVATE; - my $implementor = delete $info->{implementor}; - $implementor->Implement($info); -} - -sub protected($) { - my $info = shift; - $info->{access} = ACCESS_PROTECTED; - my $implementor = delete $info->{implementor}; - $implementor->Implement($info); -} - -sub _direct($) { - my $info = shift; - $info->{direct} = 1; - return $info; -} - -1;