|
49
|
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::ORM::Schema::Relation' => 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;
|
