view release on metacpan or  search on metacpan

lib/App/mio.pm  view on Meta::CPAN

BEGIN {
  $App::mio::AUTHORITY = 'cpan:DBR';
}
{
  $App::mio::VERSION = '0.1.0';
}

use strict;
use warnings;

# sub commify straight from Perl Cookbook,
# Chapter 2.17. "Putting Commas in Numbers"
sub commify {
    my $self = shift;
    my $text = reverse $_[0];
    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
    return scalar reverse $text;
}

'true will do';