--- a/Lib/IMPL/Config.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Config.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 
+use IMPL::Const qw(:access);
 use IMPL::declare {
     base => [
         'IMPL::Object::Accessor' => undef,
@@ -28,7 +29,7 @@
     my $class = ref $self || $self;
     
     my $serializer = new IMPL::Serializer(
-        Formatter => new IMPL::Serialization::XmlFormatter(
+        formatter => new IMPL::Serialization::XmlFormatter(
             IdentOutput => 1,
             SkipWhitespace => 1
         )
@@ -52,7 +53,7 @@
     my ($this,$file) = @_;
     
     my $serializer = new IMPL::Serializer(
-        Formatter => new IMPL::Serialization::XmlFormatter(
+        formatter => new IMPL::Serialization::XmlFormatter(
             IdentOutput => 1,
             SkipWhitespace => 1
         )
@@ -66,7 +67,7 @@
 sub xml {
     my $this = shift;
     my $serializer = new IMPL::Serializer(
-        Formatter => new IMPL::Serialization::XmlFormatter(
+        formatter => new IMPL::Serialization::XmlFormatter(
             IdentOutput => 1,
             SkipWhitespace => 1
         )
@@ -89,8 +90,8 @@
     $val = $this->rawGet($_) and $ctx->AddVar($_ => $val) foreach map $_->Name, $this->get_meta(
         'IMPL::Class::PropertyInfo',
         sub {
-            $_->Access == IMPL::Class::Member::MOD_PUBLIC and
-            $_->canGet;
+            $_->access == ACCESS_PUBLIC and
+            $_->setter;
         },
         1);    
 }