The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Books::Result::Address;

use DBIx::Class::Candy;

table 'address';

column 'id' => {
    data_type         => 'int',
    is_auto_increment => 1,
};

column 'address' => {
    data_type   => 'text',
};

column 'author_id' => {
    data_type      => 'int',
    is_foreign_key => 1,
};

primary_key 'id';

belongs_to 'author' => ( 'Books::Result::Author', 'author_id' );

1;