puke unused anyway
[dbsrgits/SQL-Abstract.git] / examples / dbic-console.pl
CommitLineData
48f4cadf 1#!/sur/bin/env perl
2
5f3fa0ac 3use warnings;
4use strict;
5
48f4cadf 6use DBIx::Class::Storage::Debug::PrettyPrint;
7
8my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
9 profile => 'console',
27b516bb 10 show_progress => 1,
48f4cadf 11});
12
13$pp->txn_begin;
14$pp->query_start("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
15sleep 1;
16$pp->query_end("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
17$pp->txn_commit;
18