From: Kieren Diment <diment@gmail.com>
Date: Fri, 3 Mar 2006 00:24:49 +0000 (+0000)
Subject: Changed the name of CD class to Cd to be compatible with default SchemaLoader moniker... 
X-Git-Tag: v0.06000~70
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0b55ba8705b0203c44c051b816097a411fe9ecc;p=dbsrgits%2FDBIx-Class.git

Changed the name of CD class to Cd to be compatible with default SchemaLoader monikerization
---

diff --git a/lib/DBIx/Class/Manual/ExampleSchema.pod b/lib/DBIx/Class/Manual/ExampleSchema.pod
index 9b7763f..c308b63 100644
--- a/lib/DBIx/Class/Manual/ExampleSchema.pod
+++ b/lib/DBIx/Class/Manual/ExampleSchema.pod
@@ -71,7 +71,7 @@ DB/Main.pm:
    
  package DB::Main;
  use base qw/DBIx::Class::Schema/;
- __PACKAGE__->load_classes(qw/Artist CD Track/);
+ __PACKAGE__->load_classes(qw/Artist Cd Track/);
 
  1;
 
@@ -84,14 +84,14 @@ DB/Main/Artist.pm:
  __PACKAGE__->table('artist');
  __PACKAGE__->add_columns(qw/ artistid name /);
  __PACKAGE__->set_primary_key('artistid');
- __PACKAGE__->has_many('cds' => 'DB::Main::CD');
+ __PACKAGE__->has_many('cds' => 'DB::Main::Cd');
 
  1;
 
 
-DB/Main/CD.pm:
+DB/Main/Cd.pm:
 
- package DB::Main::CD;
+ package DB::Main::Cd;
  use base qw/DBIx::Class/;
  __PACKAGE__->load_components(qw/Core/);
  __PACKAGE__->table('cd');
@@ -111,7 +111,7 @@ DB/Main/Track.pm:
  __PACKAGE__->table('track');
  __PACKAGE__->add_columns(qw/ trackid cd title/);
  __PACKAGE__->set_primary_key('trackid');
- __PACKAGE__->belongs_to('cd' => 'DB::Main::CD');
+ __PACKAGE__->belongs_to('cd' => 'DB::Main::Cd');
 
  1;
 
@@ -151,7 +151,7 @@ insertdb.pl
      push @cds, [$lp, $artist->first];
  }
 
- $schema->populate('CD', [
+ $schema->populate('Cd', [
      [qw/title artist/],
      @cds,
  ]);
@@ -169,7 +169,7 @@ insertdb.pl
 
  my @tracks;
  foreach my $track (keys %tracks) {
-     my $cdname = $schema->resultset('CD')->search({
+     my $cdname = $schema->resultset('Cd')->search({
          title => $tracks{$track},
      });
      push @tracks, [$cdname->first, $track];
@@ -243,7 +243,7 @@ testdb.pl:
  sub get_cd_by_track {
      my $tracktitle = shift;
      print "get_cd_by_track($tracktitle):\n";
-     my $rs = $schema->resultset('CD')->search(
+     my $rs = $schema->resultset('Cd')->search(
          {
              'tracks.title' => $tracktitle
          },
@@ -258,7 +258,7 @@ testdb.pl:
  sub get_cds_by_artist {
      my $artistname = shift;
      print "get_cds_by_artist($artistname):\n";
-     my $rs = $schema->resultset('CD')->search(
+     my $rs = $schema->resultset('Cd')->search(
          {
              'artist.name' => $artistname
          },