gistfile1.perl

package SuiteSetup::Schema::Result::Contact;

use Moose;
use MooseX::NonMoose;
use SuiteSetup::Schema::Candy -components => [
  qw(
      InflateColumn::DateTime
      TimeStamp
      Helper::Row::ToJSON
      )
];
with 'SuiteSetup::HasContainer';
use sugar;


primary_column contactid => {
  data_type         => 'int',
  is_nullable       => 0,
  is_auto_increment => 1,
  extra             => { unsigned => 1 },
};

column type => {
  data_type   => 'varchar',
  size        => 200,
  is_nullable => 0,
};

column account => {
  data_type   => 'int',
  is_nullable => 0,
  extra       => { unsigned => 1 },
};

column name => {
  data_type   => 'varchar',
  size        => 200,
  is_nullable => 0,
};

column email => {
  data_type  => 'int',
  is_nullable => 1,
  extra      => { unsigned => 1 }
};

column tags => {
  data_type   => 'int',
  is_nullable => 1,
  extra => { unsigned => 1 },
};

belongs_to 'account'        => 'SuiteSetup::Schema::Result::Account',         'account';
has_many 'tags'            => 'SuiteSetup::Schema::Result::ContactProperty', 'contact';
has_many 'email_addresses' => 'SuiteSetup::Schema::Result::EmailAddress',    'contact';
1;