The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MySchema::HasMany;
use strict;
use warnings;

use base 'DBIx::Class';

__PACKAGE__->load_components(qw/ Core /);

__PACKAGE__->table("has_many");

__PACKAGE__->add_columns(
    user  => { data_type => "INTEGER", is_nullable => 0 },
    key   => { data_type => "TEXT", is_nullable => 0 },
    value => { data_type => "TEXT", is_nullable => 0 },
);

__PACKAGE__->set_primary_key("user", "key");

__PACKAGE__->belongs_to( user => 'MySchema::User' );

1;