[Bast-commits] r7418 - in DBIx-Class/0.08/branches/autocast: lib/DBIx/Class/Storage lib/DBIx/Class/Storage/DBI t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-29 06:11:14 +0000 (Sat, 29 Aug 2009)
New Revision: 7418

Modified:
   DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI.pm
   DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI/AutoCast.pm
   DBIx-Class/0.08/branches/autocast/t/93autocast.t
Log:
rename _map_data_type to _native_data_type

Modified: DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI/AutoCast.pm
===================================================================
--- DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI/AutoCast.pm	2009-08-29 06:07:18 UTC (rev 7417)
+++ DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI/AutoCast.pm	2009-08-29 06:11:14 UTC (rev 7418)
@@ -23,7 +23,7 @@
 throw implicit type conversion errors.
 
 As long as a column L<data_type|DBIx::Class::ResultSource/add_columns> is
-defined, and it resolves to a base RDBMS native type via L</_map_data_type> as
+defined, and it resolves to a base RDBMS native type via L</_native_data_type> as
 defined in your Storage driver, the placeholder for this column will be
 converted to:
 
@@ -46,7 +46,7 @@
 
     foreach my $bound (@$bind) {
       my $col = $bound->[0];
-      my $type = $self->_map_data_type($col_info->{$col}{data_type});
+      my $type = $self->_native_data_type($col_info->{$col}{data_type});
 
       foreach my $data (@{$bound}[1..$#$bound]) {
         $new_sql .= shift(@sql_part) .

Modified: DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI.pm	2009-08-29 06:07:18 UTC (rev 7417)
+++ DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Storage/DBI.pm	2009-08-29 06:11:14 UTC (rev 7418)
@@ -2078,7 +2078,7 @@
   $self->dbh_do('_dbh_last_insert_id', @_);
 }
 
-=head2 _map_data_type
+=head2 _native_data_type
 
 =over 4
 
@@ -2104,7 +2104,7 @@
 
 =cut
 
-sub _map_data_type {
+sub _native_data_type {
   #my ($self, $data_type) = @_;
   return undef
 }

Modified: DBIx-Class/0.08/branches/autocast/t/93autocast.t
===================================================================
--- DBIx-Class/0.08/branches/autocast/t/93autocast.t	2009-08-29 06:07:18 UTC (rev 7417)
+++ DBIx-Class/0.08/branches/autocast/t/93autocast.t	2009-08-29 06:11:14 UTC (rev 7418)
@@ -20,7 +20,7 @@
       int => undef, # no conversion
     };
 
-    sub _map_data_type {
+    sub _native_data_type {
       return $type_map->{$_[1]};
     }
 }