From: Brandon Black <blblack@gmail.com>
Date: Tue, 24 Jan 2006 11:06:41 +0000 (+0000)
Subject: s/subclass/moniker/ + more db_schema fixes
X-Git-Tag: 0.03000~45
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=656441190f662924d77420df610500fa049c1d10;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

s/subclass/moniker/ + more db_schema fixes
---

diff --git a/lib/DBIx/Class/Schema/Loader/Generic.pm b/lib/DBIx/Class/Schema/Loader/Generic.pm
index 01e0525..5925c97 100644
--- a/lib/DBIx/Class/Schema/Loader/Generic.pm
+++ b/lib/DBIx/Class/Schema/Loader/Generic.pm
@@ -236,8 +236,8 @@ sub _load_classes {
             $tablename = $class->loader_data->{_drop_db_schema} ? $tbl : lc $table;
         }
 
-        my $table_subclass = $class->_table2subclass($db_schema, $tbl);
-        my $table_class = "$class\::$table_subclass";
+        my $table_moniker = $class->_table2moniker($db_schema, $tbl);
+        my $table_class = "$class\::$table_moniker";
 
         $class->inject_base( $table_class, 'DBIx::Class::Core' );
         $_->require for @db_classes;
@@ -261,9 +261,9 @@ sub _load_classes {
         croak qq/Couldn't load additional classes "$@"/ if $@;
         unshift @{"$table_class\::ISA"}, $_ foreach ( @{ $class->loader_data->{_left_base} } );
 
-        $class->register_class($table_subclass, $table_class);
+        $class->register_class($table_moniker, $table_class);
         $class->loader_data->{TABLE_CLASSES}->{lc $tablename} = $table_class;
-        $class->loader_data->{MONIKERS}->{lc $tablename} = $table_subclass;
+        $class->loader_data->{MONIKERS}->{lc $tablename} = $table_moniker;
     }
 }
 
@@ -290,23 +290,23 @@ sub _relationships {
     }
 }
 
-# Make a subclass (dbix moniker) from a table
-sub _table2subclass {
+# Make a moniker from a table
+sub _table2moniker {
     my ( $class, $db_schema, $table ) = @_;
 
     my $db_schema_ns;
 
     if($table) {
         $db_schema = ucfirst lc $db_schema;
-        $db_schema_ns = "::$db_schema" if(!$class->loader_data->{_drop_db_schema});
+        $db_schema_ns = $db_schema if(!$class->loader_data->{_drop_db_schema});
     } else {
         $table = $db_schema;
     }
 
-    my $subclass = join '', map ucfirst, split /[\W_]+/, lc $table;
-    $subclass = $db_schema_ns ? "$db_schema_ns\::" . $subclass : $subclass;
+    my $moniker = join '', map ucfirst, split /[\W_]+/, lc $table;
+    $moniker = $db_schema_ns ? $db_schema_ns . $moniker : $moniker;
 
-    return $subclass;
+    return $moniker;
 }
 
 # Overload in driver class