5 use DBIx::Class::Storage::Debug::PrettyPrint;
8 open my $fh, '>', \$cap;
10 my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
12 clear_line => 'CLEAR',
13 executing => 'GOGOGO',
18 $pp->query_start('SELECT * FROM frew WHERE id = 1');
21 qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGO),
24 $pp->query_end('SELECT * FROM frew WHERE id = 1');
27 qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGOCLEAR),