'${sum+; color(1); $_ .= " total in "}',
'${count#} values',
'${lines#; $_ = $_ != @order && " over $_ lines"}',
'${sum+; color(1); $_ .= " total in "}',
'${count#} values',
'${lines#; $_ = $_ != @order && " over $_ lines"}',
- sprintf(' (%s)', join ', ',
+ sprintf('${count: (%s)}', join ', ',
- my ($name, $cmd) = split /\s*;/, $1, 2;
+ my ($name, $op, $cmd) = split /\s*([;:])/, $1, 2;
my $format = $name =~ s/\+// || $name !~ s/\#// && $opt{reformat};
local $_ = $vars->{$name};
defined && do {
$_ = $opt{'value-format'}->($_) if $format;
my $format = $name =~ s/\+// || $name !~ s/\#// && $opt{reformat};
local $_ = $vars->{$name};
defined && do {
$_ = $opt{'value-format'}->($_) if $format;