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

package Interchange6::Schema::Result::MessageType;

=head1 NAME

Interchange6::Schema::Result::MessageType

=cut

use Interchange6::Schema::Candy;

=head1 DESCRIPTION

Lookup table for L<Interchange6::Schema::Result::Message/type>

=head1 ACCESSORS

=head2 message_types_id

Primary key.

=cut

primary_column message_types_id => {
    data_type         => "integer",
    is_auto_increment => 1
};

=head2 name

Name of the message type. Must be unique.

=cut

unique_column name => {
    data_type         => "varchar",
    size              => 255
};

=head2 active

Is the message type active. Default is yes.

=cut

column active => {
    data_type         => "boolean",
    default_value     => 1
};

=head1 RELATIONS

=head2 messages

Type: has_many

Related object: L<Interchange6::Schema::Result::Message>

=cut

has_many
  messages => 'Interchange6::Schema::Result::Message',
  'message_types_id';

1;