1 package DBIx::Class::Storage::Debug::PrettyPrint;
6 use base 'DBIx::Class::Storage::Statistics';
8 use SQL::Abstract::Tree;
10 __PACKAGE__->mk_group_accessors( simple => '_sqlat' );
11 __PACKAGE__->mk_group_accessors( simple => '_clear_line_str' );
12 __PACKAGE__->mk_group_accessors( simple => '_executing_str' );
13 __PACKAGE__->mk_group_accessors( simple => '_show_progress' );
19 my $clear_line = $args->{clear_line} || "\r
\e[J";
20 my $executing = $args->{executing} || eval { require Term::ANSIColor } ? do {
21 my $c = \&Term::ANSIColor::color;
22 $c->('blink white on_black') . 'EXECUTING...' . $c->('reset');;
24 my $show_progress = defined $args->{show_progress} ? $args->{show_progress} : 1;
26 my $sqlat = SQL::Abstract::Tree->new($args);
27 my $self = $class->next::method(@_);
28 $self->_clear_line_str($clear_line);
29 $self->_executing_str($executing);
30 $self->_show_progress($show_progress);
32 $self->_sqlat($sqlat);
40 my $bindargs = shift || [];
43 ($lw, $string, $lr) = $string =~ /^(\s*)(.+?)(\s*)$/s;
45 local $self->_sqlat->{fill_in_placeholders} = 0 if defined $bindargs
46 && defined $bindargs->[0] && $bindargs->[0] eq q('__BULK_INSERT__');
48 my $use_placeholders = !!$self->_sqlat->fill_in_placeholders;
50 # DBIC pre-quotes bindargs
51 $bindargs = [map { s/^'//; s/'$//; $_ } @{$bindargs}] if $use_placeholders;
53 my $formatted = $self->_sqlat->format($string, $bindargs);
55 $formatted = "$formatted: " . join ', ', @{$bindargs}
56 unless $use_placeholders;
58 $self->next::method("$lw$formatted$lr", @_);
62 my ($self, $string, @bind) = @_;
64 if(defined $self->callback) {
66 $self->callback->($1, "$string: ".join(', ', @bind)."\n");
72 $self->print("$string\n", \@bind);
74 $self->debugfh->print($self->_executing_str) if $self->_show_progress
78 $_[0]->debugfh->print($_[0]->_clear_line_str) if $_[0]->_show_progress
87 package MyApp::Schema;
89 use parent 'DBIx::Class::Schema';
91 use DBIx::Class::Storage::Debug::PrettyPrint;
93 __PACKAGE__->load_namespaces;
95 my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
102 my $ret = $self->next::method(@_);
104 $self->storage->debugobj($pp);