log
graph
tags
bookmarks
branches
changeset
browse
file
latest
diff
comparison
annotate
file log
raw
help
Mercurial
>
pub
>
Impl
annotate Lib/IMPL/ORM/Schema/Relation/Subclass.pm @ 266:
89179bb8c388
Find changesets by keywords (author, files, the commit message), revision number or hash, or
revset expression
.
*corrected TTView to handle plain (and undefined) values *added URL generating methods to Application::Action *fixed the compare validatior for schemas
author
cin
date
Mon, 14 Jan 2013 03:10:06 +0400 (2013-01-13)
parents
4267a2ac3d46
children
Ignore whitespace changes -
Everywhere:
Within whitespace:
At end of lines:
rev
line source
49
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
1
package IMPL::ORM::Schema::Relation::Subclass;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
2
use strict;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
3
use warnings;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
4
166
4267a2ac3d46
Added Class::Template,
wizard
parents:
49
diff
changeset
+
−
5
use parent qw(IMPL::ORM::Schema::Relation);
49
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
6
use IMPL::Class::Property;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
7
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
8
BEGIN {
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
9
public property base => prop_get | owner_set;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
10
}
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
11
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
12
our %CTOR = (
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
13
'IMPL::ORM::Schema::Relation' => sub { 'Subclass' }
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
14
);
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
15
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
16
sub CTOR {
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
17
my ($this,$base) = @_;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
18
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
19
$this->base($base) or die new IMPL::InvalidArgumentException('A base is required for this relation');
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
20
}
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
21
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
22
sub canHaveChildren {
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
23
0;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
24
}
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
25
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
26
1;