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 @ 95:
67eb8eaec3d4
Find changesets by keywords (author, files, the commit message), revision number or hash, or
revset expression
.
Added a security authority property to the Context and Security classes Added a WriteResponse method to the SecureCookie class Added a setCookie method to the Response class
author
wizard
date
Thu, 29 Apr 2010 02:21:27 +0400 (2010-04-28)
parents
16ada169ca75
children
4267a2ac3d46
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
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
30
diff
changeset
+
−
5
use base qw(IMPL::ORM::Schema::Relation);
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;