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

use base qw(IMPL::Object);
use IMPL::Class::Property;
use Scalar::Util qw(weaken refaddr);

use IMPL::Exception;

our $Depth = 1; # ��������� ������ + 1 ������� �����
our $UseProxy = 1;

BEGIN {
    private property _ObjectCache => prop_all;
    private property _MapInstances => prop_all;
    private property _WorkUnit => prop_all;
    public property Schema => prop_all;
}

sub ObjectInfoById {
    my ($this,$oid) = @_;
    
    return $this->_ObjectCache->{$oid};
}

sub ObjectInfo {
    my ($this,$inst) = @_;
    
    die new IMPL::InvalidOperationException("This method can be used only for a reference") unless ref $inst;
    
    return $this->_MapInstances->{refaddr $inst};
}


1;
__END__
=pod
=head1 SYNOPSIS

use IMPL::ORM::Sql;

my $DB = new IMPL::ORM::Sql("connection string");

local $IMPL::ORM::Depth = 1; # load childs only, no more

my $artist = $DB->Lookup( Artist => { name => 'Beatles' } );

my $order = new Order();
$order->AddItem($_) foreach $artist->Albums->List;

$DB->Save($order);

my $label = $artist->Albums->Index(0)->Label;

$DB->Populate($label); #load $label

=head1 DESCRIPTION
=head2 MEMBERS
=level 4
=back
=head2 Variables
=head2 INTERNALS
=head3 Object Representation

������ ����� ������������ � �������� ������ �������������� � ���� ������
���������, ������ �� ������� ������������ ��������� �������� ������.

Foo         entityFoo
    Bar         entityBar
    Baz         entityBaz

��� ���������� ����������� ������� ������� � ��������������� ��������� ���������
��� ���� - ���� ��� ���������� ������������ �������� ��������, ������ - ���
������� ������������ ��������.

Foo
    public virtual property Name => prop_all, {Type => String};
    
entityFoo
    string m_Name - ����������� ��������
    string v_Name - ���������� ��������
    
������ ����������� ������ � ���� ����� ����������� �������������.
����� ������� �������������� �� �����, �� ��� ��� ���� ��� �� ����� ���������.

=head3 Object Cache

��� ����� ��������, ������� ������������ � ��������� ������ ������������ ���
��������. ���� �������� ���������� �� ���� �������, � ����� ����� �����������
�������.

ObjectInfo => {
    instance => weak ref
    _id => data source dependent id
    state => {persistent|null|new|deleted}
    work_unit => ref to the work unit where object is acting
}

������ ��������� �������� ����� ��� ������� ObjectInfoById � ObjectInfo

=head3 Type mapping

�������� ������ ����� � ���� ����� ������, ������� ���������� ����� �����,
�������� � ������ ���������. ���� ��������� ����� ����������� �����:

=level 4

=item 1

����������� �������, ����� ����� �������������� � ��� ������ �������

=item

����������� ������� � ���� �������� (������� ������, ������ � �.�.)

=item

������, ������� �� ������ �������� � ���������� ������, ����� ��� ���������.

=back

=cut