[Bast-commits] r5274 - DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-12-22 02:17:39 +0000 (Mon, 22 Dec 2008)
New Revision: 5274

Modified:
   DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm
Log:
rename default_sqlt_deploy_callback to default_sqlt_deploy_hook

Modified: DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm	2008-12-22 02:09:23 UTC (rev 5273)
+++ DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm	2008-12-22 02:17:39 UTC (rev 5274)
@@ -55,7 +55,7 @@
   $new->{_relationships} = { %{$new->{_relationships}||{}} };
   $new->{name} ||= "!!NAME NOT SET!!";
   $new->{_columns_info_loaded} ||= 0;
-  $new->{sqlt_deploy_callback} ||= "default_sqlt_deploy_callback";
+  $new->{sqlt_deploy_callback} ||= "default_sqlt_deploy_hook";
   return $new;
 }
 
@@ -1147,7 +1147,7 @@
   }
 }
 
-=head2 default_sqlt_deploy_callback($table)
+=head2 default_sqlt_deploy_hook($table)
 
 Delegates to a an optional C<sqlt_deploy_hook> method on the C<result_class>.
 
@@ -1159,7 +1159,7 @@
 
 =cut
 
-sub default_sqlt_deploy_callback {
+sub default_sqlt_deploy_hook {
   my $self = shift;
 
   my $class = $self->result_class;
@@ -1172,8 +1172,8 @@
 =head2 sqlt_deploy_callback
 
 An attribute which contains the callback to trigger on C<sqlt_deploy_hook>.
-Defaults to C<default_sqlt_deploy_callback>. Can be a code reference or a
-method name.
+Defaults to C<default_sqlt_deploy_hook>. Can be a code reference or a method
+name.
 
 =head1 AUTHORS