my $trimpos = abs $opt{trim};
$trimpos -= length $1 if $opt{unmodified};
if ($trimpos <= 1) {
- $_ = substr $_, 0, 1;
+ $_ = substr $_, 0, 2;
}
elsif (length > $trimpos) {
substr($_, $trimpos - 1) = '…';
}
if (@order) {
my $total = sum @order;
- printf '%s total', $total;
+ printf '%s total', color(1) . $total . color(0);
printf ' in %d values', scalar @values;
- printf ' (%s min, %*.*f avg, %s max)',
- $order[-1], 0, 2, $total / @order, $order[0];
+ printf(' (%s min, %s avg, %s max)',
+ color(31) . $order[-1] . color(0),
+ color(36) . (sprintf '%*.*f', 0, 2, $total / @order) . color(0),
+ color(32) . $order[0] . color(0),
+ );
}
say '';
}