• Files
• Commits
• Log
• Graph
• Stats

package LIMS::DB::UserGroupFunction;

use base qw(LIMS::RDBO);

__PACKAGE__->meta->setup (
    table   => 'user_group_function',

    columns => [
        group_id     => { type => 'integer', not_null => 1 },
        function_id  => { type => 'integer', not_null => 1 },
    ],

    primary_key_columns => [ qw(group_id function_id) ],

    foreign_keys => [
        function => {
          class       => 'LIMS::DB::UserFunction',
          key_columns => { function_id => 'id' },
        },
        group => {
          class       => 'LIMS::DB::UserGroup',
          key_columns => { group_id => 'id' },
        },
    ],
);

# or to see what it should be:
#__PACKAGE__->meta->table('trials');
#__PACKAGE__->meta->auto_initialize;
# print __PACKAGE__->meta->perl_class_definition(indent => 2, braces => 'bsd');

__PACKAGE__->meta->make_manager_class('user_group_functions');

1;