Mercurial > pub > Impl
view Lib/IMPL/ORM/Schema/ValueType.pm @ 123:1d7e370a91fa
Additional DOM::Node tests
author | wizard |
---|---|
date | Wed, 09 Jun 2010 17:53:12 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
line wrap: on
line source
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