#!/usr/bin/perl
use strict;


###
package MyDB;
use base 'Rose::DB';
__PACKAGE__->register_db(
    domain          => 'default',
    type            => 'default',
    driver          => 'sqlite',
    database        => "test.db",
    connect_options => {
        PrintError => 0,
        PrintWarn  => 1,
        RaiseError => 1,
        AutoCommit => 1,
    }
);

###
package Clients;
use base 'Rose::DB::Object';
__PACKAGE__->meta->setup(
    table => 'clients',

    columns => [
        id   => { type => 'integer', not_null => 1 },
        name => { type => 'varchar', not_null => 1 },
    ],

    primary_key_columns => ['id'],

    unique_key => ['name'],

    relationships => [
        address => {
            class      => 'Addresses',
            column_map => { id => 'client_id' },
            type       => 'one to one',
        },
    ],
);

sub init_db { MyDB->new }

###
package Addresses;
use base 'Rose::DB::Object';
__PACKAGE__->meta->setup(
    table => 'addresses',

    columns => [
        id        => { type => 'integer', not_null => 1 },
        client_id => { type => 'integer', not_null => 1 },
        street    => { type => 'varchar' },
    ],

    primary_key_columns => ['id'],

    unique_key => ['client_id'],

    ###foreign_keys => [
    ###    client => {
    ###        class       => 'Clients',
    ###        key_columns => { client_id => 'id' },
    ###    },
    ###],
);

sub init_db { MyDB->new }

###
package main;
{
    my $dbh = Rose::DB->new->retain_dbh();
    {
        local $dbh->{'RaiseError'} = 0;
        local $dbh->{'PrintError'} = 0;

        $dbh->do('DROP TABLE addresses');
        $dbh->do('DROP TABLE clients');
    }

    $dbh->do(<<"EOF");
CREATE TABLE clients
(
  id    INTEGER PRIMARY KEY AUTOINCREMENT,
  name  VARCHAR,

  UNIQUE(name)
)
EOF

    $dbh->do(<<"EOF");
CREATE TABLE addresses
(
  id        INTEGER PRIMARY KEY AUTOINCREMENT,
  client_id INT NOT NULL REFERENCES clients (id),
  street    VARCHAR,

  UNIQUE(client_id)
)
EOF

    $dbh->disconnect;
}

Clients->new( name => 'c1' )->save;

my $c = Clients->new( name => 'c1' );
$c->load;

my $a = Addresses->new( client_id => $c->id, street => 's1' );
$c->address($a);

$c->save( cascade => 1, changes_only => 1 );