Bivio::Biz::Model::TupleTag
# Copyright (c) 2008 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::Biz::Model::TupleTag;
use strict;
use Bivio::Base 'Model.RealmBase';
my($_TSN) = b_use('Type.TupleSlotNum');
sub LIST_FIELDS {
return $_TSN->map_list(sub {'Tuple.' . shift(@_)});
}
sub internal_initialize {
my($self) = @_;
return $self->merge_initialize_info($self->SUPER::internal_initialize, {
version => 1,
table_name => 'tuple_tag_t',
columns => {
tuple_def_id => ['TupleUse.tuple_def_id', 'PRIMARY_KEY'],
primary_id => ['PrimaryId', 'PRIMARY_KEY'],
@{$_TSN->map_list(sub {shift(@_) => ['TupleSlot', 'NONE']})},
},
});
}
1;