| Test-DBIx-Class documentation | Contained in the Test-DBIx-Class distribution. |
Test::DBIx::Class::Example::Schema::Result::Job - A Job
A job is something you gotta do.
The following modules or resources may be of interest.
John Napiorkowski <jjnapiork@cpan.org>
Copyright 2009, John Napiorkowski <jjnapiork@cpan.org>
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Test-DBIx-Class documentation | Contained in the Test-DBIx-Class distribution. |
package Test::DBIx::Class::Example::Schema::Result::Job; { use base 'Test::DBIx::Class::Example::Schema::Result'; __PACKAGE__->table('job'); __PACKAGE__->add_columns( job_id => { data_type => 'varchar', size => '36', is_nullable => 0, }, name => { data_type => 'varchar', size => '20', is_nullable => 0, }, description => { data_type => 'varchar', size => '100', is_nullable => 0, }, ); __PACKAGE__->set_primary_key('job_id'); __PACKAGE__->uuid_columns('job_id'); __PACKAGE__->has_many( company_employee_rs => 'Test::DBIx::Class::Example::Schema::Result::Company::Employee', { 'foreign.fk_job_id' => 'self.job_id'} ); __PACKAGE__->many_to_many( companies => 'company_job_rs', 'company', ); __PACKAGE__->many_to_many( employees => 'company_job_rs', 'employee', ); } 1 __END__