[dbsrgits/DBIx-Class.git] / examples / Schema / MyDatabase / Main / Result / Track.pm

package MyDatabase::Main::Result::Track;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/PK::Auto Core/);
__PACKAGE__->table('track');
__PACKAGE__->add_columns(qw/ trackid cd title/);
__PACKAGE__->set_primary_key('trackid');
__PACKAGE__->belongs_to('cd' => 'MyDatabase::Main::Result::Cd');

1;
Commit	Line	Data
4bea5048	1	package MyDatabase::Main::Result::Track;
0c337847	2	use base qw/DBIx::Class/;
	3	__PACKAGE__->load_components(qw/PK::Auto Core/);
	4	__PACKAGE__->table('track');
	5	__PACKAGE__->add_columns(qw/ trackid cd title/);
	6	__PACKAGE__->set_primary_key('trackid');
4bea5048	7	__PACKAGE__->belongs_to('cd' => 'MyDatabase::Main::Result::Cd');
0c337847	8
0c337847	9	1;