|
0
|
1 package IMPL::ORM::Entity;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
27
|
5 use base qw(IMPL::Object);
|
|
0
|
6 use IMPL::Class::Property;
|
|
27
|
7 use IMPL::Class::Property::Direct;
|
|
|
8
|
|
|
9 BEGIN {
|
|
|
10 public _direct property Name => prop_get;
|
|
|
11 public _direct property Class => prop_get;
|
|
|
12 public _direct property Values => prop_get;
|
|
|
13 public _direct property Schema => prop_get;
|
|
|
14 }
|
|
|
15
|
|
|
16 sub CTOR {
|
|
|
17 my ($this,$class,$schema) = @_;
|
|
|
18
|
|
|
19
|
|
|
20 }
|
|
0
|
21
|
|
27
|
22 sub Store;
|
|
|
23 *Store = \&dbgStore;
|
|
0
|
24
|
|
27
|
25 sub dbgStore {
|
|
|
26 my ($this,$prop,$value) = @_;
|
|
|
27
|
|
|
28 if ( my $container = $this->{$Values}{$prop} ) {
|
|
|
29 if ($container->{type} eq 'SCALAR') {
|
|
|
30
|
|
|
31 } else {
|
|
|
32
|
|
|
33 }
|
|
|
34
|
|
|
35 } else {
|
|
|
36 die new IMPL::InvalidOperationException("Property not found",$this->Name,$prop);
|
|
|
37 }
|
|
|
38 }
|
|
|
39
|
|
|
40 sub Get {
|
|
|
41
|
|
|
42 }
|
|
0
|
43
|
|
|
44 1;
|
