--- a/Lib/IMPL/declare.pm	Sat Sep 29 02:34:47 2012 +0400
+++ b/Lib/IMPL/declare.pm	Mon Oct 08 03:37:37 2012 +0400
@@ -4,6 +4,7 @@
 use Scalar::Util qw(set_prototype);
 use Carp qw(carp);
 use IMPL::Class::PropertyInfo();
+use IMPL::Const qw(:access);
 
 sub import {
 	my ( $self, $args ) = @_;
@@ -52,6 +53,9 @@
 			$ctor{$class} = $mapper;
 		}
 	}
+	
+	*{"${caller}::CTOR"} = \%ctor;
+    *{"${caller}::ISA"}  = \@isa;
 
 	my $props = $args->{props} || [];
 
@@ -75,16 +79,13 @@
 					Mutators => $spec,
 					Class    => $caller,
 					Access   => $prop =~ /^_/
-					? IMPL::Class::MemberInfo::MOD_PRIVATE
-					: IMPL::Class::MemberInfo::MOD_PUBLIC
+					? ACCESS_PRIVATE
+					: ACCESS_PUBLIC
 				}
 			);
 			$propInfo->Implement();
 		}
 	}
-
-	*{"${caller}::CTOR"} = \%ctor;
-	*{"${caller}::ISA"}  = \@isa;
 }
 
 sub _require {