package IMPL::DOM::Document;
use strict;
use warnings;

use base qw(IMPL::DOM::Node);

__PACKAGE__->PassThroughArgs;

sub Create {
    my ($this,$nodeName,$class,$refProps) = @_;
    
    $refProps ||= {};
    
    delete $refProps->{nodeName};
    
    return $class->new(
        nodeName => $nodeName,
        %$refProps
    );
}

1;
__END__

=pod

=head1 DESCRIPTION

=head1 METHODS

=over

=item C<<$doc->Create>>

������� ���� ������������ ���� � ������������ ������ � ����������.

=back

=cut