X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2Fdbic-console.pl;fp=examples%2Fdbic-console.pl;h=dc3b19c41569713a706efe61f0c48f9ff735b025;hb=48f4cadf9af707861cff8b335c1f9de1b06cb51e;hp=0000000000000000000000000000000000000000;hpb=f038abc711d1299a37477b46243d667db530b84a;p=scpubgit%2FQ-Branch.git

diff --git a/examples/dbic-console.pl b/examples/dbic-console.pl
new file mode 100644
index 0000000..dc3b19c
--- /dev/null
+++ b/examples/dbic-console.pl
@@ -0,0 +1,15 @@
+#!/sur/bin/env perl
+
+use DBIx::Class::Storage::Debug::PrettyPrint;
+
+my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
+   profile => 'console',
+   show_progress => 0,
+});
+
+$pp->txn_begin;
+$pp->query_start("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
+sleep 1;
+$pp->query_end("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
+$pp->txn_commit;
+