Mercurial > pub > Impl

diff Lib/IMPL/Class/MemberInfo.pm @ 230:6d8092d8ce1b
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author: sergey
date: Mon, 08 Oct 2012 03:37:37 +0400
parents: 431db7034a88
children: 2904da230022
--- a/Lib/IMPL/Class/MemberInfo.pm	Sat Sep 29 02:34:47 2012 +0400
+++ b/Lib/IMPL/Class/MemberInfo.pm	Mon Oct 08 03:37:37 2012 +0400
@@ -1,22 +1,13 @@
 package IMPL::Class::MemberInfo;
 use strict;
-use IMPL::_core::version;
 use parent qw(IMPL::Object::Accessor);
 
 require IMPL::Exception;
 
-use constant {
-    MOD_PUBLIC => 1,
-    MOD_PROTECTED => 2,
-    MOD_PRIVATE => 3
-};
-
-#TODO remove Virtual
 __PACKAGE__->mk_accessors(
     qw(
         Name
         Access
-        Virtual
         Class
         Frozen
         Implementor
@@ -33,7 +24,6 @@
     
     $this->Attributes({}) unless defined $this->Attributes;
     $this->Frozen(0);
-    $this->Virtual(0) unless defined $this->Virtual;
     $this->Access(3) unless $this->Access;
 }
 
@@ -76,12 +66,6 @@
 
 Атрибут доступа ( public | private | protected )
 
-=item C<[get,set] Virtual>
-
-Default false.
-
-Флаг виртуальности.
-
 =item C<[get,set] Class>
 
 Класс владелец