Commit | Line | Data |
ee356d00 |
1 | package DBIx::Class::Storage::DBI::Replicated::WithDSN; |
2 | |
3 | use Moose::Role; |
4 | requires qw/_query_start/; |
5 | |
6 | use namespace::clean -except => 'meta'; |
7 | |
8 | =head1 NAME |
9 | |
10 | DBIx::Class::Storage::DBI::Replicated::WithDSN - A DBI Storage Role with DSN |
11 | information in trace output |
12 | |
13 | =head1 SYNOPSIS |
14 | |
15 | This class is used internally by L<DBIx::Class::Storage::DBI::Replicated>. |
16 | |
17 | =head1 DESCRIPTION |
18 | |
19 | This role adds C<DSN: > info to storage debugging output. |
20 | |
21 | =head1 METHODS |
22 | |
23 | This class defines the following methods. |
24 | |
25 | =head2 around: _query_start |
26 | |
27 | Add C<DSN: > to debugging output. |
28 | |
29 | =cut |
30 | |
31 | around '_query_start' => sub { |
32 | my ($method, $self, $sql, @bind) = @_; |
33 | my $dsn = $self->_dbi_connect_info->[0]; |
34 | $self->$method("DSN: $dsn SQL: $sql", @bind); |
35 | }; |
36 | |
37 | =head1 ALSO SEE |
38 | |
39 | L<DBIx::Class::Storage::DBI> |
40 | |
41 | =head1 AUTHOR |
42 | |
43 | John Napiorkowski <john.napiorkowski@takkle.com> |
44 | |
45 | =head1 LICENSE |
46 | |
47 | You may distribute this code under the same terms as Perl itself. |
48 | |
49 | =cut |
50 | |
51 | 1; |