Mercurial > pub > Impl
view Lib/IMPL/ORM/Schema/Entity.pm @ 114:7084af955c57
minor changes, more strict code, no bugs fixed, no features added
author | wizard |
---|---|
date | Tue, 25 May 2010 01:26:42 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
line wrap: on
line source
package IMPL::ORM::Schema::Entity; use strict; use warnings; use base qw(IMPL::DOM::Node); use IMPL::Class::Property; BEGIN { public property entityName => prop_get | owner_set; } our %CTOR = ( 'IMPL::DOM::Node' => sub { nodeName => 'Entity' } ); sub CTOR { my ($this,$name) = @_; $this->entityName($name); } 1;