5 use DBIx::Class::Storage::Debug::PrettyPrint;
8 open my $fh, '>', \$cap;
10 my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
13 fill_in_placeholders => 1,
14 placeholder_surround => [qw(' ')],
20 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1'));
23 qq(SELECT * FROM frew WHERE id = '1'\n),
28 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('2'));
32 'Repeated SQL ellided'
36 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('3'));
40 'Repeated SQL ellided'
44 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('4'));
48 'Repeated SQL ellided'
52 $pp->query_start('SELECT * FROM bar WHERE id = ?', q('4'));
55 qq(SELECT * FROM bar WHERE id = '4'\n),
60 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1'));
63 qq(SELECT * FROM frew WHERE id = '1'\n),