Reinstate examples after botched merge

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

diff --git a/examples/Schema/MyDatabase/Main/Result/Track.pm b/examples/Schema/MyDatabase/Main/Result/Track.pm
new file mode 100644 (file)
index 0000000..23877bb
--- /dev/null
+++ b/examples/Schema/MyDatabase/Main/Result/Track.pm
@@ -0,0 +1,9 @@
+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;