use Tao::Object 1.04;
use Tangram;
use Tangram::Storage;
use Tangram::Set;
use Tangram::mysql;

#------------------------------------------------------------
package Person;

@ISA = qw(Tao::Object);

$schema = {
    table => "person",
    fields => {
        string => {
            name => undef,
        },
        set => {
            roles => {
                class => 'Role',
                table => 'person_role',
            },
        },
    },
};

#------------------------------------------------------------
package Role;

@ISA = qw(Tao::Object);

$schema = {
    abstract => 1,
    fields => {
        string => {
            name => undef,
        }
    }
};

#------------------------------------------------------------
package Customer;

@ISA = qw(Tao::Object Role);

$schema = {
    bases => [ qw(Role) ],
    fields => {
 string => {
     # redefine the name attribute for this type; give it a
            # default.
            name => {
         init_default => "customer",
            }
 },
        int => {
            cust_id => undef,
        }
    }
};

#------------------------------------------------------------
package Vendor;

@ISA = qw(Tao::Object Role);

$schema = {
    bases => [ qw(Role) ],
    fields => {
        int => {
            illuminati_member => undef,
        }
    }
};

#------------------------------------------------------------
package Employee;

@ISA = qw(Tao::Object Role);

$schema = {
    bases => [ qw(Role) ],
    fields => {
        string => {
            coffee_cup => undef,
        }
    }
};

#============================================================
package Main;

# 
my $db_schema = Tangram::Schema->new(
    {
        classes => [ 'Role' => $Role::schema,
                     'Person' => $Person::schema,
                     'Employee' => $Employee::schema,
                     'Vendor' => $Vendor::schema,
                     'Customer' => $Customer::schema ]
    });

my ($dsn, $u, $p) = ("dbi:mysql:database=test", "root", "");

# create database tables
my $dbh = DBI->connect($dsn, $u, $p);
Tangram::mysql->deploy($db_schema, $dbh);
$dbh->disconnect();

# re-log in
my $storage = Tangram::Storage->connect($db_schema, $dsn, $u, $p);

{
    # create a customer role
    my $customer = Customer->new( cust_id => 12345 );
    # create an employee role
    my $employee = Employee->new( coffee_cup => "Look into my OOs",
      name => "Coffee Pourer"          );

    # Set::Object acts as a "Container" class for the roles
    my $roles = Set::Object->new($customer, $employee);
    my $person = Person->new( name => "Bob",
         roles => $roles );

    # stores $person and $customer
    $storage->insert($person);

    # drop references to customer and $person, they will be freed from
    # memory.  This is optional, the normal thing to do is just let
    # these accumulate in memory and hope that someone will write a
    # decent garbage collector before it burns you.
    $storage->unload($customer, $employee, $person);
}

# return an object that represents the 
my $db_person = $storage->remote("Person");

# if you can't be bothered keeping all of your objects in a container,
# you can do the RDBMS "lookup by value" thing.
my @persons = $storage->select($db_person,
          $db_person->{name} eq "Bob");

print "Got ".@persons." people back.\n";
print "First one is : ".$persons[0]->name()."\n";
print "Roles:\n";
for ($persons[0]->roles->members()) {
    print("Type: ", ref $_, " - name: ", $_->name(), "\n");
}