File Coverage

blib/lib/Mojolicious/Plugin/Number/Commify.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition	2	2	100.0
subroutine	3	3	100.0
pod	1	1	100.0
total	15	15	100.0

package Mojolicious::Plugin::Number::Commify;
use Mojolicious::Plugin -base;

our $VERSION = 0.041;

sub register {
  my ($self, $app, $cfg) = @_;
  $app->helper(commify => sub {
    my ($self, $number) = @_;
    my $sep = $cfg->{separator} // ',';
    $number =~ s/(
      ^[-+]?  # beginning of number.
      \d+?    # first digits before first comma
      (?=     # followed by, (but not included in the match) :
        (?>(?:\d{3})+) # some positive multiple of three digits.
        (?!\d)         # an *exact* multiple, not x * 3 + 1 or whatever.
      )
      |       # or:
      \G\d{3} # after the last group, get three digits
      (?=\d)  # but they have to have more digits after them.
    )/$1$sep/xgo;
    $number;
  });
}

1;
__END__