Update example Result classes for proper DDL generation

Also given that this is one of the first things a newbie sees, it is prudent
to stick to canonical definition

diff --git a/examples/Schema/MyApp/Schema/Result/Artist.pm b/examples/Schema/MyApp/Schema/Result/Artist.pm
index 61a11f2..70074b1 100644 (file)
--- a/examples/Schema/MyApp/Schema/Result/Artist.pm
+++ b/examples/Schema/MyApp/Schema/Result/Artist.pm
@@ -3,14 +3,24 @@ package MyApp::Schema::Result::Artist;
 use warnings;
 use strict;
 
-use base qw/DBIx::Class::Core/;
+use base qw( DBIx::Class::Core );
 
 __PACKAGE__->table('artist');
 
-__PACKAGE__->add_columns(qw/ artistid name /);
+__PACKAGE__->add_columns(
+  artistid => {
+    data_type => 'integer',
+    is_auto_increment => 1
+  },
+  name => {
+    data_type => 'text',
+  },
+);
 
 __PACKAGE__->set_primary_key('artistid');
 
+__PACKAGE__->add_unique_constraint([qw( name )]);
+
 __PACKAGE__->has_many('cds' => 'MyApp::Schema::Result::Cd');
 
 1;

diff --git a/examples/Schema/MyApp/Schema/Result/Cd.pm b/examples/Schema/MyApp/Schema/Result/Cd.pm
index 6d600a1..9b0602c 100644 (file)
--- a/examples/Schema/MyApp/Schema/Result/Cd.pm
+++ b/examples/Schema/MyApp/Schema/Result/Cd.pm
@@ -3,14 +3,31 @@ package MyApp::Schema::Result::Cd;
 use warnings;
 use strict;
 
-use base qw/DBIx::Class::Core/;
+use base qw( DBIx::Class::Core );
 
 __PACKAGE__->table('cd');
 
-__PACKAGE__->add_columns(qw/ cdid artist title year /);
+__PACKAGE__->add_columns(
+  cdid => {
+    data_type => 'integer',
+    is_auto_increment => 1
+  },
+  artist => {
+    data_type => 'integer',
+  },
+  title => {
+    data_type => 'text',
+  },
+  year => {
+    data_type => 'datetime',
+    is_nullable => 1,
+  },
+);
 
 __PACKAGE__->set_primary_key('cdid');
 
+__PACKAGE__->add_unique_constraint([qw( title artist )]);
+
 __PACKAGE__->belongs_to('artist' => 'MyApp::Schema::Result::Artist');
 __PACKAGE__->has_many('tracks' => 'MyApp::Schema::Result::Track');
 

diff --git a/examples/Schema/MyApp/Schema/Result/Track.pm b/examples/Schema/MyApp/Schema/Result/Track.pm
index 91b8368..dc0951a 100644 (file)
--- a/examples/Schema/MyApp/Schema/Result/Track.pm
+++ b/examples/Schema/MyApp/Schema/Result/Track.pm
@@ -3,14 +3,27 @@ package MyApp::Schema::Result::Track;
 use warnings;
 use strict;
 
-use base qw/DBIx::Class::Core/;
+use base qw( DBIx::Class::Core );
 
 __PACKAGE__->table('track');
 
-__PACKAGE__->add_columns(qw/ trackid cd title/);
+__PACKAGE__->add_columns(
+  trackid => {
+    data_type => 'integer',
+    is_auto_increment => 1
+  },
+  cd => {
+    data_type => 'integer',
+  },
+  title => {
+    data_type => 'text',
+  },
+);
 
 __PACKAGE__->set_primary_key('trackid');
 
+__PACKAGE__->add_unique_constraint([qw( title cd )]);
+
 __PACKAGE__->belongs_to('cd' => 'MyApp::Schema::Result::Cd');
 
 1;