Mercurial > pub > Impl
view Lib/IMPL/ORM/Schema/ValueType.pm @ 166:4267a2ac3d46
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'
author | wizard |
---|---|
date | Sat, 23 Apr 2011 23:12:06 +0400 |
parents | 16ada169ca75 |
children |
line wrap: on
line source
package IMPL::ORM::Schema::ValueType; use strict; use parent 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