Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/AnyNode.pm @ 24:7f00786f8210

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Первая рабочая реазизация схемы и навигаторов
author Sergey
date Mon, 05 Oct 2009 00:48:49 +0400
parents 267460284fb3
children 16ada169ca75
comparison
equal deleted inserted replaced
23:716b287d4795 24:7f00786f8210
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::DOM::Schema::Node); 5 use base qw(IMPL::DOM::Schema::Node);
6 6
7 our %CTOR = ( 7 our %CTOR = (
8 'IMPL::DOM::Schema::Node' => sub { nodeName => 'AnyNode', name=> 'AnyNode'} 8 'IMPL::DOM::Schema::Node' => sub {
9 my %args = @_;
10 $args{nodeName} ||= 'AnyNode';
11 $args{name} = '::any';
12
13 %args;
14 }
9 ); 15 );
10 16
11 1; 17 1;
12 18
13 __END__ 19 __END__
15 =pod 21 =pod
16 22
17 =head1 DESCRIPTION 23 =head1 DESCRIPTION
18 24
19 , 25 ,
20 . , 26 .
21 , 27
22 , 28 C<IMPL::DOM::Schema::NodeSet>
23 . 29 C<IMPL::DOM::Schema::SwitchNode>.
30
31 <IMPL::DOM::Schema::NodeList>
32 .
33
34 <NodeList>
35 <SimpleNode name="firstName"/>
36 <SimpleNode name="age"/>
37 <AnyNode type="Notes" minOccur="0" maxOccur="unbounded"/>
38 <Node name="primaryAddress" type="Address"/>
39 <AnyNode/>
40 </NodeList>
24 41
25 =cut 42 =cut