DBIx::Class::Storage::Debug::PrettyPrint - Pretty Printing DebugObj

NAME  SYNOPSIS  METHODS  new 

---

NAME

DBIx::Class::Storage::Debug::PrettyPrint − Pretty Printing DebugObj

SYNOPSIS

DBIC_TRACE_PROFILE=˜/dbic.json perl −Ilib ./foo.pl

Where dbic.json contains:

{
"profile":"console",
"show_progress":1,
"squash_repeats":1
}

METHODS

new

my $pp = DBIx::Class::Storage::Debug::PrettyPrint−>new({
show_progress => 1, # tries it's best to make it clear that a SQL
# statement is still running
executing => '...', # the string that is added to the end of SQL
# if show_progress is on. You probably don't
# need to set this
clear_line => '<CR><ESC>[J', # the string used to erase the string added
# to SQL if show_progress is on. Again, the
# default is probably good enough.
squash_repeats => 1, # set to true to make repeated SQL queries
# be ellided and only show the new bind params
# any other args are passed through directly to SQL::Abstract::Tree
});

---