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

diff --git a/examples/dbic-console.pl b/examples/dbic-console.pl
index dc3b19c..5054424 100644
--- a/examples/dbic-console.pl
+++ b/examples/dbic-console.pl
@@ -1,10 +1,13 @@
 #!/sur/bin/env perl
 
+use warnings;
+use strict;
+
 use DBIx::Class::Storage::Debug::PrettyPrint;
 
 my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
    profile => 'console',
-   show_progress => 0,
+   show_progress => 1,
 });
 
 $pp->txn_begin;