Mercurial > pub > Impl
diff Lib/IMPL/Class/Member.pm @ 277:6585464c4664
sync (unstable)
author | sergey |
---|---|
date | Fri, 01 Feb 2013 16:37:59 +0400 |
parents | 8a5da17d7ef9 |
children | 4ddb27ff4a0b |
line wrap: on
line diff
--- a/Lib/IMPL/Class/Member.pm Thu Jan 31 17:37:44 2013 +0400 +++ b/Lib/IMPL/Class/Member.pm Fri Feb 01 16:37:59 2013 +0400 @@ -1,12 +1,11 @@ package IMPL::Class::Member; use strict; use parent qw(Exporter); -our @EXPORT = qw(virtual public private protected); +our @EXPORT = qw(&public &private &protected); use IMPL::Const qw(:access); -use IMPL::Class::Meta; require IMPL::Class::MemberInfo; sub public($) { @@ -29,4 +28,5 @@ my ($class,$implementor) = delete $info->{'class','-implementor'}; $class->$implementor($info); } + 1;