--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/DOM/Document.pm	Mon Sep 07 17:30:55 2009 +0400
@@ -0,0 +1,29 @@
+package IMPL::DOM::Document;
+use strict;
+use warnings;
+
+use base qw(IMPL::DOM::Node);
+
+__PACKAGE__->PassThroughArgs;
+
+sub Create {
+    my ($this,$nodeName,$class,$refProps) = @_;
+    
+    $refProps ||= {};
+    
+    return $class->new(
+        nodeName => $nodeName,
+        %$refProps
+    );
+}
+
+1;
+__END__
+
+=pod
+
+=head1 DESCRIPTION
+
+Создает узел определеннго типа с определенным именем и свойствами.
+
+=cut
\ No newline at end of file