Examples and documentation update and cleanup

This version updates the original POD with slightly more information
so that more DBIx::Class functionality is revealed.  The source code is
removed from POD, and instead the reader is directed to the examples
directory.

It also changes the example schema from silly auto-inferred column
names to proper *id-suffixed ones.

Changes

@@ -28,7 +28,7 @@ Revision history for DBIx::Class
 
     * Misc
         - Remove warning about potential side effects of RT#79576 (scheduled)
-        - Various doc improvements (GH#62, GH#66, GH#70, GH#71, GH#72)
+        - Various doc improvements (GH#35, GH#62, GH#66, GH#70, GH#71, GH#72)
         - Skip tests in a way more intelligent and speedy manner when optional
           dependencies are missing
         - Make the Optional::Dependencies error messages cpanm-friendly

examples/Schema/MyApp/Schema/Result/Artist.pm

@@ -21,7 +21,7 @@ __PACKAGE__->set_primary_key('artistid');
 
 __PACKAGE__->add_unique_constraint([qw( name )]);
 
-__PACKAGE__->has_many('cds' => 'MyApp::Schema::Result::Cd');
+__PACKAGE__->has_many('cds' => 'MyApp::Schema::Result::Cd', 'artistid');
 
 1;
 

examples/Schema/MyApp/Schema/Result/Cd.pm

@@ -12,7 +12,7 @@ __PACKAGE__->add_columns(
     data_type => 'integer',
     is_auto_increment => 1
   },
-  artist => {
+  artistid => {
     data_type => 'integer',
   },
   title => {
@@ -26,9 +26,9 @@ __PACKAGE__->add_columns(
 
 __PACKAGE__->set_primary_key('cdid');
 
-__PACKAGE__->add_unique_constraint([qw( title artist )]);
+__PACKAGE__->add_unique_constraint([qw( title artistid )]);
 
-__PACKAGE__->belongs_to('artist' => 'MyApp::Schema::Result::Artist');
-__PACKAGE__->has_many('tracks' => 'MyApp::Schema::Result::Track');
+__PACKAGE__->belongs_to('artist' => 'MyApp::Schema::Result::Artist', 'artistid');
+__PACKAGE__->has_many('tracks' => 'MyApp::Schema::Result::Track', 'cdid');
 
 1;

examples/Schema/MyApp/Schema/Result/Track.pm

@@ -12,7 +12,7 @@ __PACKAGE__->add_columns(
     data_type => 'integer',
     is_auto_increment => 1
   },
-  cd => {
+  cdid => {
     data_type => 'integer',
   },
   title => {
@@ -22,8 +22,8 @@ __PACKAGE__->add_columns(
 
 __PACKAGE__->set_primary_key('trackid');
 
-__PACKAGE__->add_unique_constraint([qw( title cd )]);
+__PACKAGE__->add_unique_constraint([qw( title cdid )]);
 
-__PACKAGE__->belongs_to('cd' => 'MyApp::Schema::Result::Cd');
+__PACKAGE__->belongs_to('cd' => 'MyApp::Schema::Result::Cd', 'cdid');
 
 1;

examples/Schema/insertdb.pl

@@ -31,7 +31,7 @@
 }
 
 $schema->populate('Cd', [
-    [qw/title artist/],
+    [qw/title artistid/],
     @cds,
 ]);
 
@@ -55,6 +55,6 @@
 }
 
 $schema->populate('Track',[
-    [qw/cd title/],
+    [qw/cdid title/],
     @tracks,
 ]);

examples/Schema/testdb.pl

@@ -53,7 +53,8 @@ sub get_tracks_by_artist {
         }
     );
     while (my $track = $rs->next) {
-        print $track->title . "\n";
+        print $track->title . " (from the CD '" . $track->cd->title
+          . "')\n";
     }
     print "\n";
 }
@@ -70,7 +71,7 @@ sub get_cd_by_track {
         }
     );
     my $cd = $rs->first;
-    print $cd->title . "\n\n";
+    print $cd->title . " has the track '$tracktitle'.\n\n";
 }
 
 sub get_cds_by_artist {
@@ -104,7 +105,7 @@ sub get_artist_by_track {
         }
     );
     my $artist = $rs->first;
-    print $artist->name . "\n\n";
+    print $artist->name . " recorded the track '$tracktitle'.\n\n";
 }
 
 sub get_artist_by_cd {
@@ -119,5 +120,5 @@ sub get_artist_by_cd {
         }
     );
     my $artist = $rs->first;
-    print $artist->name . "\n\n";
+    print $artist->name . " recorded the CD '$cdtitle'.\n\n";
 }