Mercurial > pub > Impl
annotate Lib/IMPL/ORM/Schema/ValueType.pm @ 100:df6b4f054957
Schema in progress
Added simple mailer
author | wizard |
---|---|
date | Thu, 06 May 2010 00:54:17 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
rev | line source |
---|---|
49 | 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 |