Mercurial > pub > Impl
view Lib/IMPL/ORM/Schema/Relation/Subclass.pm @ 29:37160f7c8edb
minor changes
author | Sergey |
---|---|
date | Wed, 21 Oct 2009 17:30:20 +0400 |
parents | 6d33f75c6e1f |
children | dd4d72600c69 |
line wrap: on
line source
package IMPL::ORM::Schema::Relation::Subclass; use strict; use warnings; use base qw(IMPL::ORM::Schema::Relation); use IMPL::Class::Property; BEGIN { public property base => prop_get | owner_set; } our %CTOR = ( 'IMPL::DOM::Node' => sub { 'Subclass' } ); sub CTOR { my ($this,$base) = @_; $this->base($base) or die new IMPL::InvalidArgumentException('A base is required for this relation'); } sub canHaveChildren { 0; } 1;