Mercurial > pub > Impl

comparison 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
comparison
equal deleted inserted replaced
37:c2e7f7c96bcd 42:4ff27cd051e3
1 package IMPL::ORM::Schema::ValueType;
2
3 use strict;
4
5 use base qw(IMPL::DOM::Node);
6
7 our %CTOR = (
8 'IMPL::DOM::Node' => sub { nodeName => 'ValueType' }
9 );
10
11 use IMPL::Class::Property;
12
13 BEGIN {
14 public property typeName => prop_all;
15 public property typeReflected => prop_all;
16 }
17
18 sub CTOR {
19 my ($this,$typeName,$typeReflected) = @_;
20
21 $this->typeName($typeName);
22 $this->typeReflected($typeReflected);
23 }
24
25 1;
26
27 __END__
28
29 =pod
30
31 =cut