7 # ask for a recent DBIC version to skip the 5.6.2 tests as well
8 plan skip_all => 'Test temporarily requires DBIx::Class'
9 unless eval { require DBIx::Class::Storage::Statistics; DBIx::Class->VERSION('0.08124') };
12 use DBIx::Class::Storage::Debug::PrettyPrint;
15 open my $fh, '>', \$cap;
17 my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
19 clear_line => 'CLEAR',
20 executing => 'GOGOGO',
25 $pp->query_start('SELECT * FROM frew WHERE id = 1');
28 qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGO),
31 $pp->query_end('SELECT * FROM frew WHERE id = 1');
34 qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGOCLEAR),