Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/AnyNode.pm @ 24:7f00786f8210
Первая рабочая реазизация схемы и навигаторов
| author | Sergey |
|---|---|
| date | Mon, 05 Oct 2009 00:48:49 +0400 |
| parents | 267460284fb3 |
| children | 16ada169ca75 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/AnyNode.pm Wed Sep 30 17:43:52 2009 +0400 +++ b/Lib/IMPL/DOM/Schema/AnyNode.pm Mon Oct 05 00:48:49 2009 +0400 @@ -5,7 +5,13 @@ use base qw(IMPL::DOM::Schema::Node); our %CTOR = ( - 'IMPL::DOM::Schema::Node' => sub { nodeName => 'AnyNode', name=> 'AnyNode'} + 'IMPL::DOM::Schema::Node' => sub { + my %args = @_; + $args{nodeName} ||= 'AnyNode'; + $args{name} = '::any'; + + %args; + } ); 1; @@ -17,9 +23,20 @@ =head1 DESCRIPTION , - . , - , - , - . + . + + C<IMPL::DOM::Schema::NodeSet> + C<IMPL::DOM::Schema::SwitchNode>. + + <IMPL::DOM::Schema::NodeList> + . + +<NodeList> + <SimpleNode name="firstName"/> + <SimpleNode name="age"/> + <AnyNode type="Notes" minOccur="0" maxOccur="unbounded"/> + <Node name="primaryAddress" type="Address"/> + <AnyNode/> +</NodeList> =cut \ No newline at end of file