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

use strict;
use warnings;

use base 'DB';

__PACKAGE__->meta(
    table          => 'user',
    columns        => [qw/ id name password /],
    primary_keys   => ['id'],
    auto_increment => 'id',
    unique_keys    => 'name',

    relationships => {
        articles => {
            type  => 'one to many',
            class => 'Article',
            map   => {id => 'user_id'}
        }
    }
);

1;