First stab at restructuring with tests_recursive() - no functional changes

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

diff --git a/examples/Schema/MyDatabase/Main/Result/Cd.pm b/examples/Schema/MyDatabase/Main/Result/Cd.pm
new file mode 100644 (file)
index 0000000..83fd21e
--- /dev/null
+++ b/examples/Schema/MyDatabase/Main/Result/Cd.pm
@@ -0,0 +1,10 @@
+package MyDatabase::Main::Result::Cd;
+use base qw/DBIx::Class/;
+__PACKAGE__->load_components(qw/PK::Auto Core/);
+__PACKAGE__->table('cd');
+__PACKAGE__->add_columns(qw/ cdid artist title/);
+__PACKAGE__->set_primary_key('cdid');
+__PACKAGE__->belongs_to('artist' => 'MyDatabase::Main::Result::Artist');
+__PACKAGE__->has_many('tracks' => 'MyDatabase::Main::Result::Track');
+
+1;