Do not show_progress by default
Arthur Axel 'fREW' Schmidt [Sun, 24 Oct 2010 20:59:47 +0000 (15:59 -0500)]
lib/DBIx/Class/Storage/Debug/PrettyPrint.pm

index ea40e97..8a8c659 100644 (file)
@@ -23,7 +23,7 @@ sub new {
        my $c = \&Term::ANSIColor::color;
        $c->('blink white on_black') . 'EXECUTING...' . $c->('reset');;
    } : 'EXECUTING...';
-   my $show_progress = defined $args->{show_progress} ? $args->{show_progress} : 1;
+   my $show_progress = $args->{show_progress};
 
    my $squash_repeats = $args->{squash_repeats};
    my $sqlat = SQL::Abstract::Tree->new($args);