49
|
1 package IMPL::ORM::Schema::ValueType;
|
|
2
|
|
3 use strict;
|
|
4
|
166
|
5 use parent qw(IMPL::DOM::Node);
|
49
|
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
|