1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
package DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server;
use strict;
use warnings;
use base qw/
DBIx::Class::Storage::DBI::ADO
DBIx::Class::Storage::DBI::MSSQL
/;
use mro 'c3';
=head1 NAME
DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server - Support for Microsoft
SQL Server via DBD::ADO
=head1 SYNOPSIS
This subclass supports MSSQL server connections via L<DBD::ADO>.
=head1 DESCRIPTION
The MSSQL specific functionality is provided by
L<DBIx::Class::Storage::DBI::MSSQL>.
=head1 EXAMPLE DSN
dbi:ADO:provider=sqlncli10;server=EEEBOX\SQLEXPRESS
=head1 CAVEATS
=head2 identities
C<_identity_method> is set to C<@@identity>, as C<SCOPE_IDENTITY()> doesn't work
with L<DBD::ADO>. See L<DBIx::Class::Storage::DBI::MSSQL/IMPLEMENTATION NOTES>
for caveats regarding this.
=head2 truncation bug
There is a bug with MSSQL ADO providers where data gets truncated based on the
size of the bind sizes in the first prepare call:
L<https://rt.cpan.org/Ticket/Display.html?id=52048>
The C<ado_size> workaround is used (see L<DBD::ADO/"ADO Providers">) with the
approximate maximum size of the data_type of the bound column, or 8000 (maximum
VARCHAR size) if the data_type is not available.
This code is incomplete and may be buggy. Particularly, C<VARCHAR(MAX)> is not
supported yet. The data_type list for other DBs is also incomplete. Please
report problems (and send patches.)
=head2 fractional seconds
Fractional seconds with L<DBIx::Class::InflateColumn::DateTime> are not
currently supported, datetimes are truncated at the second.
=cut
__PACKAGE__->datetime_parser_type (
'DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server::DateTime::Format'
);
sub _rebless {
my $self = shift;
$self->_identity_method('@@identity');
}
# work around a bug in the ADO driver - use the max VARCHAR size for all
# binds that do not specify one via bind_attributes_by_data_type()
sub _dbi_attrs_for_bind {
my $attrs = shift->next::method(@_);
for (@$attrs) {
$_->{ado_size} ||= 8000 if $_;
}
$attrs;
}
sub bind_attribute_by_data_type {
my ($self, $data_type) = @_;
($data_type = lc($data_type)) =~ s/\s+.*//;
my $max_size =
$self->_mssql_max_data_type_representation_size_in_bytes->{$data_type};
my $res = {};
$res->{ado_size} = $max_size if $max_size;
return $res;
}
# approximate
# XXX needs to support varchar(max) and varbinary(max)
sub _mssql_max_data_type_representation_size_in_bytes {
my $self = shift;
my $blob_max = $self->_get_dbh->{LongReadLen} || 32768;
return +{
# MSSQL types
char => 8000,
varchar => 8000,
binary => 8000,
varbinary => 8000,
nchar => 8000,
nvarchar => 8000,
numeric => 100,
smallint => 100,
tinyint => 100,
smallmoney => 100,
bigint => 100,
bit => 100,
decimal => 100,
integer => 100,
int => 100,
money => 100,
float => 100,
real => 100,
uniqueidentifier => 100,
ntext => $blob_max,
text => $blob_max,
image => $blob_max,
date => 100,
datetime => 100,
datetime2 => 100,
datetimeoffset => 100,
smalldatetime => 100,
time => 100,
timestamp => 100,
cursor => 100,
hierarchyid => 100,
sql_variant => 100,
table => 100,
xml => $blob_max, # ???
# some non-MSSQL types
serial => 100,
bigserial => 100,
varchar2 => 8000,
blob => $blob_max,
clob => $blob_max,
}
}
package # hide from PAUSE
DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server::DateTime::Format;
my $datetime_format = '%m/%d/%Y %I:%M:%S %p';
my $datetime_parser;
sub parse_datetime {
shift;
require DateTime::Format::Strptime;
$datetime_parser ||= DateTime::Format::Strptime->new(
pattern => $datetime_format,
on_error => 'croak',
);
return $datetime_parser->parse_datetime(shift);
}
sub format_datetime {
shift;
require DateTime::Format::Strptime;
$datetime_parser ||= DateTime::Format::Strptime->new(
pattern => $datetime_format,
on_error => 'croak',
);
return $datetime_parser->format_datetime(shift);
}
1;
=head1 AUTHOR
See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
=head1 LICENSE
You may distribute this code under the same terms as Perl itself.
=cut
# vim:sts=2 sw=2:
|
