1 package DBIx::Class::Storage::DBI::AutoCast;
6 use base qw/DBIx::Class::Storage::DBI/;
9 __PACKAGE__->mk_group_accessors('simple' => 'auto_cast' );
13 DBIx::Class::Storage::DBI::AutoCast
17 $schema->storage->auto_cast(1);
21 In some combinations of RDBMS and DBD drivers (e.g. FreeTDS and Sybase)
22 statements with values bound to columns or conditions that are not strings will
23 throw implicit type conversion errors.
25 As long as a column L<data_type|DBIx::Class::ResultSource/add_columns> is
26 defined, and it resolves to a base RDBMS native type via L</_native_data_type> as
27 defined in your Storage driver, the placeholder for this column will be
30 CAST(? as $mapped_type)
32 This option can also be enabled in L<DBIx::Class::Storage::DBI/connect_info> as:
34 on_connect_call => ['set_auto_cast']
38 sub _prep_for_execute {
40 my ($op, $extra_bind, $ident, $args) = @_;
42 my ($sql, $bind) = $self->next::method (@_);
44 # If we're using ::NoBindVars, there are no binds by this point so this code
46 if ($self->auto_cast && @$bind) {
48 my @sql_part = split /\?/, $sql;
49 my $col_info = $self->_resolve_column_info($ident,[ map $_->[0], @$bind ]);
51 foreach my $bound (@$bind) {
52 my $col = $bound->[0];
53 my $type = $self->_native_data_type($col_info->{$col}{data_type});
55 foreach my $data (@{$bound}[1..$#$bound]) {
56 $new_sql .= shift(@sql_part) .
57 ($type ? "CAST(? AS $type)" : '?');
60 $new_sql .= join '', @sql_part;
67 =head2 connect_call_set_auto_cast
71 $schema->storage->auto_cast(1);
77 on_connect_call => ['set_auto_cast']
79 in L<DBIx::Class::Storage::DBI/connect_info>.
83 sub connect_call_set_auto_cast {
90 See L<DBIx::Class/CONTRIBUTORS>
94 You may distribute this code under the same terms as Perl itself.