Mercurial > pub > Impl
annotate Lib/IMPL/ORM/Schema/Relation/Subclass.pm @ 28:6d33f75c6e1f
ORM in works
| author | Sergey |
|---|---|
| date | Mon, 19 Oct 2009 04:13:54 +0400 |
| parents | |
| children | dd4d72600c69 |
| rev | line source |
|---|---|
| 28 | 1 package IMPL::ORM::Schema::Relation::Subclass; |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
| 5 use base qw(IMPL::ORM::Schema::Relation); | |
| 6 use IMPL::Class::Property; | |
| 7 | |
| 8 BEGIN { | |
| 9 public property base => prop_get | owner_set; | |
| 10 } | |
| 11 | |
| 12 our %CTOR = ( | |
| 13 'IMPL::DOM::Node' => sub { 'Subclass' } | |
| 14 ); | |
| 15 | |
| 16 sub CTOR { | |
| 17 my ($this,$base) = @_; | |
| 18 | |
| 19 $this->base($base) or die new IMPL::InvalidArgumentException('A base is required for this relation'); | |
| 20 } | |
| 21 | |
| 22 sub canHaveChildren { | |
| 23 0; | |
| 24 } | |
| 25 | |
| 26 1; |