1DBIx::Class::Storage::DUesbeurg:C:oPnrtertitbyuPtDreBidInxtP:(e:3rC)llaDsosc:u:mSetnotraatgieo:n:Debug::PrettyPrint(3)
2
3
4

NAME

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

SYNOPSIS

9        DBIC_TRACE_PROFILE=~/dbic.json perl -Ilib ./foo.pl
10
11       Where dbic.json contains:
12
13        {
14          "profile":"console",
15          "show_progress":1,
16          "squash_repeats":1
17        }
18

METHODS

20   new
21        my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
22          show_progress  => 1,             # tries it's best to make it clear that a SQL
23                                           # statement is still running
24          executing      => '...',         # the string that is added to the end of SQL
25                                           # if show_progress is on.  You probably don't
26                                           # need to set this
27          clear_line     => '<CR><ESC>[J', # the string used to erase the string added
28                                           # to SQL if show_progress is on.  Again, the
29                                           # default is probably good enough.
30
31          squash_repeats => 1,             # set to true to make repeated SQL queries
32                                           # be ellided and only show the new bind params
33          # any other args are passed through directly to SQL::Abstract::Tree
34        });
35
36
37
38perl v5.30.1                      20D2B0I-x0:1:-C3l0ass::Storage::Debug::PrettyPrint(3)