File Coverage

blib/lib/DTL/Fast/Filter/Numberformat.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	23	25	92.0

package DTL::Fast::Filter::Numberformat;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Filter';

$DTL::Fast::FILTER_HANDLERS{numberformat} = __PACKAGE__;

#@Override
sub filter
{
    my ( $self, $filter_manager, $value, $context) = @_;

    die $self->get_render_error($context, 'unable to numberformat undef value')
        if (not defined $value);

    my @num = split /\./, $value;
    $num[0] =~ s/
        (\d)(?=
            (\d{3})+(?!\d)
            )
        /$1 /gsx;

    return join '.', @num;
}

1;