--- a/Lib/IMPL/Exception.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Exception.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -11,7 +11,6 @@
 }
 
 use parent qw(IMPL::Object::Abstract Error Class::Accessor);
-require IMPL::Class::Property::Accessor;
 
 BEGIN {
     __PACKAGE__->mk_accessors( qw(Message Args CallStack Source) );
@@ -85,10 +84,6 @@
     ($this->Message || ref $this) . join("\n",'',map { my $s = $_; local $_; indent("$s",1) } @{$this->Args} ) . ( $notrace ? '' : "\n" . $this->CallStack);
 }
 
-sub _PropertyImplementor {
-	'IMPL::Class::Property::Accessor'
-}
-
 package IMPL::InvalidOperationException;
 our @ISA = qw(IMPL::Exception);
 __PACKAGE__->PassThroughArgs;