Reinstate examples after botched merge

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

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