--- a/Lib/IMPL/DOM/Schema/AnyNode.pm	Tue Feb 11 20:22:01 2014 +0400
+++ b/Lib/IMPL/DOM/Schema/AnyNode.pm	Wed Feb 12 13:36:24 2014 +0400
@@ -2,17 +2,17 @@
 use strict;
 use warnings;
 
-use parent qw(IMPL::DOM::Schema::Node);
-
-our %CTOR = (
-    'IMPL::DOM::Schema::Node' => sub {
-        my %args = @_;
-        $args{nodeName} ||= 'AnyNode';
-        $args{name} = '::any';
-        
-        %args;
-    }
-);
+use IMPL::declare {
+	base => [
+		'IMPL::DOM::Schema::Node' => sub {
+	        my %args = @_;
+	        $args{nodeName} ||= 'AnyNode';
+	        $args{name} = '::any';
+	        
+	        %args;
+	    }
+	]
+};
 
 1;