Commit | Line | Data |
2edf3352 |
1 | package DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server::Cursor; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use base 'DBIx::Class::Storage::DBI::Cursor'; |
6 | use mro 'c3'; |
7 | use DBIx::Class::Storage::DBI::ADO::CursorUtils qw/_normalize_guids _strip_trailing_binary_nulls/; |
8 | use namespace::clean; |
9 | |
10 | =head1 NAME |
11 | |
12 | DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server::Cursor - Remove trailing |
13 | NULLs in binary data and normalize GUIDs for MSSQL over ADO |
14 | |
15 | =head1 DESCRIPTION |
16 | |
17 | This class is for removing trailing C<NULL>s from binary data and removing braces |
18 | from GUIDs retrieved from Microsoft SQL Server over ADO. |
19 | |
20 | You probably don't want to be here, see |
21 | L<DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server> for information on the |
22 | Microsoft SQL Server driver for ADO and L<DBIx::Class::Storage::DBI::MSSQL> for |
23 | the Microsoft SQL Server driver base class. |
24 | |
25 | Unfortunately when using L<DBD::ADO>, binary data comes back padded with |
26 | trailing C<NULL>s and GUIDs come back wrapped in braces, the purpose of this |
27 | class is to remove the C<NULL>s and braces. |
28 | L<DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server> sets |
29 | L<cursor_class|DBIx::Class::Storage::DBI/cursor_class> to this class by |
30 | default. It is overridable via your |
31 | L<connect_info|DBIx::Class::Storage::DBI/connect_info>. |
32 | |
33 | You can use L<DBIx::Class::Cursor::Cached> safely with this class and not lose |
34 | the binary data normalizing functionality, |
35 | L<::Cursor::Cached|DBIx::Class::Cursor::Cached> uses the underlying class data |
36 | for the inner cursor class. |
37 | |
38 | =cut |
39 | |
a2f22854 |
40 | sub next { |
41 | my $self = shift; |
2edf3352 |
42 | |
a2f22854 |
43 | my @row = $self->next::method(@_); |
2edf3352 |
44 | |
a2f22854 |
45 | $self->{_colinfos} ||= $self->storage->_resolve_column_info($self->args->[0]); |
2edf3352 |
46 | |
a2f22854 |
47 | _normalize_guids( |
48 | $self->args->[1], |
49 | $self->{_colinfos}, |
50 | \@row, |
51 | $self->storage |
52 | ); |
2edf3352 |
53 | |
a2f22854 |
54 | _strip_trailing_binary_nulls( |
55 | $self->args->[1], |
56 | $self->{_colinfos}, |
57 | \@row, |
58 | $self->storage |
59 | ); |
2edf3352 |
60 | |
61 | return @row; |
62 | } |
63 | |
a2f22854 |
64 | sub all { |
65 | my $self = shift; |
2edf3352 |
66 | |
a2f22854 |
67 | my @rows = $self->next::method(@_); |
2edf3352 |
68 | |
a2f22854 |
69 | $self->{_colinfos} ||= $self->storage->_resolve_column_info($self->args->[0]); |
2edf3352 |
70 | |
71 | for (@rows) { |
a2f22854 |
72 | _normalize_guids( |
73 | $self->args->[1], |
74 | $self->{_colinfos}, |
75 | $_, |
76 | $self->storage |
77 | ); |
78 | |
79 | _strip_trailing_binary_nulls( |
80 | $self->args->[1], |
81 | $self->{_colinfos}, |
82 | $_, |
83 | $self->storage |
84 | ); |
2edf3352 |
85 | } |
86 | |
87 | return @rows; |
88 | } |
89 | |
90 | 1; |
91 | |
92 | =head1 AUTHOR |
93 | |
94 | See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>. |
95 | |
96 | =head1 LICENSE |
97 | |
98 | You may distribute this code under the same terms as Perl itself. |
99 | |
100 | =cut |
101 | |
102 | # vim:sts=2 sw=2: |