package IMPL::ORM::Entity;
use strict;
use warnings;

use base qw(IMPL::Object);
use IMPL::Class::Property;
use IMPL::Class::Property::Direct;

BEGIN {
    public _direct property Name => prop_get;
    public _direct property Class => prop_get;
    public _direct property Values => prop_get;
    public _direct property Schema => prop_get;
}

sub CTOR {
    my ($this,$class,$schema) = @_;
    
    
}

sub Store;
*Store = \&dbgStore;

sub dbgStore {
    my ($this,$prop,$value) = @_;
    
    if ( my $container = $this->{$Values}{$prop} ) {
        if ($container->{type} eq 'SCALAR') {
            
        } else {
            
        }
        
    } else {
        die new IMPL::InvalidOperationException("Property not found",$this->Name,$prop);
    }
}

sub Get {
    
}

1;