view release on metacpan or  search on metacpan

utilities/totals  view on Meta::CPAN

if (@error)
{
	warn "Error/s:\n";
	foreach my $t (@error) { warn "  @{$t}\n"; }
	exit 1 unless $opt{'force'};
}

# ok, print results

sub commify
# based on the "Perl Cookbook" recipe 2.17
{
	my $s;
	return map
	{
		$s = reverse $_;
		$s =~ s/(\w{3})(?=\w)(?!\w*\.)/$1,/g;
		scalar reverse $s;
	} @_;
}