annotate Lib/IMPL/DOM/Schema/AnyNode.pm @ 38:d660fb38b7cc

small fixes ORM shema to SQL schema transformation
author Sergey
date Mon, 23 Nov 2009 17:57:07 +0300
parents 7f00786f8210
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
1 package IMPL::DOM::Schema::AnyNode;
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
2 use strict;
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
3 use warnings;
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
4
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
5 use base qw(IMPL::DOM::Schema::Node);
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
6
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
7 our %CTOR = (
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
8 'IMPL::DOM::Schema::Node' => sub {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
9 my %args = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
10 $args{nodeName} ||= 'AnyNode';
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
11 $args{name} = '::any';
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
12
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
13 %args;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
14 }
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
15 );
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
16
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
17 1;
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
18
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
19 __END__
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
20
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
21 =pod
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
22
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
23 =head1 DESCRIPTION
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
24
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
25 ,
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
26 .
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
27
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
28 C<IMPL::DOM::Schema::NodeSet>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
29 C<IMPL::DOM::Schema::SwitchNode>.
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
30
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
31 <IMPL::DOM::Schema::NodeList>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
32 .
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
33
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
34 <NodeList>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
35 <SimpleNode name="firstName"/>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
36 <SimpleNode name="age"/>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
37 <AnyNode type="Notes" minOccur="0" maxOccur="unbounded"/>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
38 <Node name="primaryAddress" type="Address"/>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
39 <AnyNode/>
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 20
diff changeset
40 </NodeList>
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
41
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff changeset
42 =cut