Mercurial > pub > Impl
annotate Lib/IMPL/ORM/Schema/Entity.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 |
| rev | line source |
|---|---|
| 49 | 1 package IMPL::ORM::Schema::Entity; |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
| 166 | 5 use parent qw(IMPL::DOM::Node); |
| 49 | 6 use IMPL::Class::Property; |
| 7 | |
| 8 BEGIN { | |
| 9 public property entityName => prop_get | owner_set; | |
| 10 } | |
| 11 | |
| 12 our %CTOR = ( | |
| 13 'IMPL::DOM::Node' => sub { | |
| 14 nodeName => 'Entity' | |
| 15 } | |
| 16 ); | |
| 17 | |
| 18 sub CTOR { | |
| 19 my ($this,$name) = @_; | |
| 20 | |
| 21 $this->entityName($name); | |
| 22 } | |
| 23 | |
| 24 1; |