X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FSybase%2FMicrosoft_SQL_Server.pm;h=12dfa5b91e35eb2c1dd883708e980cbe0d5e9bae;hb=08ac7648665ed86e88b2a752b31e8a34a8552dc7;hp=ff9223a1f5e68fc822a77428264b4e591f55fab7;hpb=fb95dc4d2ea295f6f2c0ba5170792017e3a8781b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm b/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm index ff9223a..12dfa5b 100644 --- a/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm +++ b/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm @@ -8,15 +8,56 @@ use base qw/ DBIx::Class::Storage::DBI::MSSQL /; use mro 'c3'; -use Carp::Clan qw/^DBIx::Class/; + +use DBIx::Class::Carp; +use namespace::clean; + +=head1 NAME + +DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft +SQL Server via DBD::Sybase + +=head1 SYNOPSIS + +This subclass supports MSSQL server connections via L. + +=head1 DESCRIPTION + +This driver tries to determine whether your version of L and +supporting libraries (usually FreeTDS) support using placeholders, if not the +storage will be reblessed to +L. + +The MSSQL specific functionality is provided by +L. + +=head1 METHODS + +=cut + +__PACKAGE__->datetime_parser_type( + 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::DateTime::Format' +); sub _rebless { my $self = shift; my $dbh = $self->_get_dbh; return if ref $self ne __PACKAGE__; + if (not $self->_use_typeless_placeholders) { + carp_once <<'EOF' unless $ENV{DBIC_MSSQL_FREETDS_LOWVER_NOWARN}; +Placeholders do not seem to be supported in your configuration of +DBD::Sybase/FreeTDS. + +This means you are taking a large performance hit, as caching of prepared +statements is disabled. - if (not $self->_typeless_placeholders_supported) { +Make sure to configure your server with "tds version" of 8.0 or 7.0 in +/etc/freetds/freetds.conf . + +To turn off this warning, set the DBIC_MSSQL_FREETDS_LOWVER_NOWARN environment +variable. +EOF require DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars; bless $self, @@ -25,41 +66,39 @@ sub _rebless { } } -sub _run_connection_actions { +sub _init { my $self = shift; - # LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is - # huge on some versions of SQL server and can cause memory problems, so we - # fix it up here (see ::DBI::Sybase.pm) - $self->set_textsize; - $self->next::method(@_); -} -sub _dbh_begin_work { - my $self = shift; + # work around massively broken freetds versions after 0.82 + # - explicitly no scope_identity + # - no sth caching + # + # warn about the fact as well, do not provide a mechanism to shut it up + if ($self->_using_freetds and (my $ver = $self->_using_freetds_version||999) > 0.82) { + carp_once( + "Your DBD::Sybase was compiled against buggy FreeTDS version $ver. " + . 'Statement caching does not work and will be disabled.' + ); - $self->_get_dbh->do('BEGIN TRAN'); + $self->_identity_method('@@identity'); + $self->_no_scope_identity_query(1); + $self->disable_sth_caching(1); + } } -sub _dbh_commit { - my $self = shift; - my $dbh = $self->_dbh - or $self->throw_exception('cannot COMMIT on a disconnected handle'); - $dbh->do('COMMIT'); -} +# invoked only if DBD::Sybase is compiled against FreeTDS +sub _set_autocommit_stmt { + my ($self, $on) = @_; -sub _dbh_rollback { - my $self = shift; - my $dbh = $self->_dbh - or $self->throw_exception('cannot ROLLBACK on a disconnected handle'); - $dbh->do('ROLLBACK'); + return 'SET IMPLICIT_TRANSACTIONS ' . ($on ? 'OFF' : 'ON'); } sub _get_server_version { my $self = shift; - my $product_version = $self->_get_dbh->selectrow_hashref('xp_msver ProductVersion'); + my $product_version = $self->_get_dbh->selectrow_hashref('master.dbo.xp_msver ProductVersion'); if ((my $version = $product_version->{Character_Value}) =~ /^(\d+)\./) { return $version; @@ -88,33 +127,27 @@ C columns only have minute precision. =cut -{ - my $old_dbd_warned = 0; - - sub connect_call_datetime_setup { - my $self = shift; - my $dbh = $self->_get_dbh; - - if ($dbh->can('syb_date_fmt')) { - # amazingly, this works with FreeTDS - $dbh->syb_date_fmt('ISO_strict'); - } elsif (not $old_dbd_warned) { - carp "Your DBD::Sybase is too old to support ". - "DBIx::Class::InflateColumn::DateTime, please upgrade!"; - $old_dbd_warned = 1; - } +sub connect_call_datetime_setup { + my $self = shift; + my $dbh = $self->_get_dbh; + + if ($dbh->can('syb_date_fmt')) { + # amazingly, this works with FreeTDS + $dbh->syb_date_fmt('ISO_strict'); + } + else{ + carp_once + 'Your DBD::Sybase is too old to support ' + . 'DBIx::Class::InflateColumn::DateTime, please upgrade!'; } } -sub datetime_parser_type { - 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::DateTime::Format' -} package # hide from PAUSE DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::DateTime::Format; my $datetime_parse_format = '%Y-%m-%dT%H:%M:%S.%3NZ'; -my $datetime_format_format = '%Y-%m-%d %H:%M:%S.%3N'; # %F %T +my $datetime_format_format = '%Y-%m-%d %H:%M:%S.%3N'; # %F %T my ($datetime_parser, $datetime_formatter); @@ -140,25 +173,6 @@ sub format_datetime { 1; -=head1 NAME - -DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft -SQL Server via DBD::Sybase - -=head1 SYNOPSIS - -This subclass supports MSSQL server connections via L. - -=head1 DESCRIPTION - -This driver tries to determine whether your version of L and -supporting libraries (usually FreeTDS) support using placeholders, if not the -storage will be reblessed to -L. - -The MSSQL specific functionality is provided by -L. - =head1 AUTHOR See L.