Mercurial > pub > Impl

annotate Lib/IMPL/ORM/Schema/ValueType.pm @ 42:4ff27cd051e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated ORM schema model
author Sergey
date Thu, 07 Jan 2010 15:34:42 +0300
parents
children 009aa9ca2e48
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
42
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
1 package IMPL::ORM::Schema::ValueType;
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
2
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
3 use strict;
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
4
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
5 use base qw(IMPL::DOM::Node);
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
6
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
7 our %CTOR = (
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
8 'IMPL::DOM::Node' => sub { nodeName => 'ValueType' }
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
9 );
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
10
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
11 use IMPL::Class::Property;
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
12
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
13 BEGIN {
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
14 public property typeName => prop_all;
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
15 public property typeReflected => prop_all;
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
16 }
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
17
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
18 sub CTOR {
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
19 my ($this,$typeName,$typeReflected) = @_;
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
20
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
21 $this->typeName($typeName);
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
22 $this->typeReflected($typeReflected);
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
23 }
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
24
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
25 1;
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
26
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
27 __END__
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
28
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
29 =pod
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
30
4ff27cd051e3 updated ORM schema model
Sergey
parents:
diff changeset
31 =cut