Mercurial > pub > Impl

annotate Lib/IMPL/ORM/Schema/ValueType.pm @ 38:d660fb38b7cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes ORM shema to SQL schema transformation
author Sergey
date Mon, 23 Nov 2009 17:57:07 +0300
parents
children 009aa9ca2e48
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
1 package IMPL::ORM::Schema::ValueType;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
2 use strict;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
3 use warnings;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
4
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
5 use base qw(IMPL::DOM::Node);
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
6 use IMPL::Class::Property;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
7 use IMPL::DOM::Property qw(_dom);
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
8
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
9 BEGIN {
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
10 public _dom property name => prop_all;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
11 public _dom property mapper => prop_all;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
12 }
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
13
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
14 our %CTOR = (
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
15 'IMPL::DOM::Node' => sub {
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
16 my %args = @_;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
17 $args{nodeName} = 'ValueType';
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
18 %args;
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
19 }
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
20 );
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
21
d660fb38b7cc small fixes
Sergey
parents:
diff changeset
22 1;