Mercurial > pub > Impl
diff Lib/IMPL/ORM/Schema/ValueType.pm @ 42:4ff27cd051e3
updated ORM schema model
author | Sergey |
---|---|
date | Thu, 07 Jan 2010 15:34:42 +0300 |
parents | |
children | 009aa9ca2e48 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Lib/IMPL/ORM/Schema/ValueType.pm Thu Jan 07 15:34:42 2010 +0300 @@ -0,0 +1,31 @@ +package IMPL::ORM::Schema::ValueType; + +use strict; + +use base qw(IMPL::DOM::Node); + +our %CTOR = ( + 'IMPL::DOM::Node' => sub { nodeName => 'ValueType' } +); + +use IMPL::Class::Property; + +BEGIN { + public property typeName => prop_all; + public property typeReflected => prop_all; +} + +sub CTOR { + my ($this,$typeName,$typeReflected) = @_; + + $this->typeName($typeName); + $this->typeReflected($typeReflected); +} + +1; + +__END__ + +=pod + +=cut \ No newline at end of file