added reference implementation of DBIx::Class::Manual::Example

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

diff --git a/t/examples/Schema/MyDatabase/Main/Cd.pm b/t/examples/Schema/MyDatabase/Main/Cd.pm
new file mode 100644 (file)
index 0000000..4579823
--- /dev/null
+++ b/t/examples/Schema/MyDatabase/Main/Cd.pm
@@ -0,0 +1,10 @@
+package MyDatabase::Main::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::Artist');
+__PACKAGE__->has_many('tracks' => 'MyDatabase::Main::Track');
+
+1;