remove obsolete thing that never worked

[scpubgit/Q-Branch.git] / examples / dbic-console.pl

diff --git a/examples/dbic-console.pl b/examples/dbic-console.pl
index dc3b19c..5054424 100644 (file)
--- 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;