Commit | Line | Data |
1dc93d17 |
1 | package DBIx::Class::Storage::PrettyPrinter; |
2 | |
3 | use base 'DBIx::Class::Storage::Statistics'; |
4 | |
5 | use SQL::Abstract::Tree; |
6 | |
7 | __PACKAGE__->mk_group_accessors( simple => '_sqlat' ); |
8 | |
9 | sub new { |
10 | my $class = shift; |
11 | |
12 | my $sqlat = SQL::Abstract::Tree->new(shift @_); |
13 | my $self = $class->next::method(@_); |
14 | |
15 | $self->_sqlat($sqlat); |
16 | |
17 | return $self |
18 | } |
19 | |
20 | sub query_start { |
21 | my $self = shift; |
22 | my $string = shift; |
23 | |
24 | my $formatted = $self->_sqlat->format($string); |
25 | |
26 | $self->next::method($formatted, @_); |
27 | } |
28 | |
29 | 1; |
6b1bf9f8 |
30 | |
31 | =pod |
32 | |
33 | =head1 SYNOPSIS |
34 | |
35 | package MyApp::Schema; |
36 | |
37 | use parent 'DBIx::Class::Schema'; |
38 | |
39 | use DBIx::Class::Storage::PrettyPrinter; |
40 | |
41 | __PACKAGE__->load_namespaces; |
42 | |
43 | my $pp = DBIx::Class::Storage::PrettyPrinter->new({ profile => 'console' }); |
44 | |
45 | sub connection { |
46 | my $self = shift; |
47 | |
48 | my $ret = $self->next::method(@_); |
49 | |
50 | $self->storage->debugobj($pp); |
51 | |
52 | $ret |
53 | } |
54 | |