Swap order of _relnames_and_method return values
Dagfinn Ilmari Mannsåker [Fri, 20 Dec 2013 22:06:29 +0000 (22:06 +0000)]
It makes more sense to have the local relname first, then the remote
relname and method. Note that this plus the previous commit are not a
no-op, since the meanings of the names have changed.

lib/DBIx/Class/Schema/Loader/RelBuilder.pm
lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm

index 878a5b9..8ae4559 100644 (file)
@@ -411,7 +411,7 @@ sub generate_code {
             my %cond;
             @cond{@$remote_cols} = @$local_cols;
 
-            my ( $remote_relname, $local_relname, $remote_method ) =
+            my ( $local_relname, $remote_relname, $remote_method ) =
                 $self->_relnames_and_method( $local_moniker, $rel, \%cond,  $uniqs, \%counters );
             my $local_method  = 'belongs_to';
 
@@ -950,7 +950,7 @@ sub _relnames_and_method {
         }
     }
 
-    return ($remote_relname, $local_relname, $remote_method);
+    return ($local_relname, $remote_relname, $remote_method);
 }
 
 sub _rel_name_map {
index 5909eed..1910ce1 100644 (file)
@@ -33,7 +33,7 @@ sub _relnames_and_method {
         ($remote_relname) = $self->_inflect_plural(lc $local_table);
     }
 
-    return ( $remote_relname, $local_relname, 'has_many' );
+    return ( $local_relname, $remote_relname, 'has_many' );
 }
 
 sub _remote_attrs { }
index 90e6114..c3581e7 100644 (file)
@@ -61,7 +61,7 @@ sub _relnames_and_method {
         ($remote_relname) = $self->_inflect_singular($remote_relname_uninflected);
     }
 
-    return ( $remote_relname, $local_relname, $remote_method );
+    return ( $local_relname, $remote_relname, $remote_method );
 }
 
 =head1 NAME