comparison Lib/IMPL/DOM/Document.pm @ 15:16795016e70b

Dom schema in progress
author Sergey
date Mon, 07 Sep 2009 17:30:55 +0400
parents
children 818c74b038ae
comparison
equal deleted inserted replaced
14:65a7bb156fb7 15:16795016e70b
1 package IMPL::DOM::Document;
2 use strict;
3 use warnings;
4
5 use base qw(IMPL::DOM::Node);
6
7 __PACKAGE__->PassThroughArgs;
8
9 sub Create {
10 my ($this,$nodeName,$class,$refProps) = @_;
11
12 $refProps ||= {};
13
14 return $class->new(
15 nodeName => $nodeName,
16 %$refProps
17 );
18 }
19
20 1;
21 __END__
22
23 =pod
24
25 =head1 DESCRIPTION
26
27 Создает узел определеннго типа с определенным именем и свойствами.
28
29 =cut