The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyTest::CDBI::Sweet::Simple::CodeName;

use strict;

use base 'MyTest::CDBI::Sweet::Base';

__PACKAGE__->table('rose_db_object_test_code_names');
__PACKAGE__->columns(Primary => 'id');
__PACKAGE__->columns(Essential => qw(id product_id name));

__PACKAGE__->has_a(product_id => 'MyTest::CDBI::Simple::Product');

1;