my $args = shift;
my $clear_line = $args->{clear_line} || "\r\e[J";
- my $executing = $args->{executing} || eval { require Term::ANSIColor } ? do {
- my $c = \&Term::ANSIColor::color;
- $c->('blink white on_black') . 'EXECUTING...' . $c->('reset');;
- } : 'EXECUTING...';
+ my $executing = $args->{executing} || (
+ eval { require Term::ANSIColor } ? do {
+ my $c = \&Term::ANSIColor::color;
+ $c->('blink white on_black') . 'EXECUTING...' . $c->('reset');
+ } : 'EXECUTING...'
+ );
my $show_progress = $args->{show_progress};
my $squash_repeats = $args->{squash_repeats};
my $formatted;
if ($self->squash_repeats && $self->_last_sql eq $string) {
my ( $l, $r ) = @{ $sqlat->placeholder_surround };
- $formatted = '... : ' . join(', ', map "$l$_$r", @$bindargs) . "\n";
+ $formatted = '... : ' . join(', ', map "$l$_$r", @$bindargs)
} else {
$self->_last_sql($string);
- $formatted = $sqlat->format($string, $bindargs) . "\n";
- $formatted = "$formatted: " . join ', ', @{$bindargs}
+ $formatted = $sqlat->format($string, $bindargs);
+ $formatted = "$formatted : " . join ', ', @{$bindargs}
unless $use_placeholders;
}