File Coverage

blib/lib/Template/Plugin/Komma.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	15	18	83.3
condition			n/a
subroutine	8	8	100.0
pod	1	4	25.0
total	66	72	91.6

package Template::Plugin::Komma;
our $VERSION = '0.07';


use strict;
use warnings;

use base 'Template::Plugin';


# taken from Math::Round
my $half = 0.50000000000008;


sub new {
    my ($self, $context) = @_;

    $context->define_filter('komma',  \&komma,  '');
    $context->define_filter('komma0', \&komma0, '');
    $context->define_filter('komma2', \&komma2, '');

    return $self;
}

sub komma {
    my $number = shift;

    return undef unless defined $number;
    return '' if $number eq '';

    return _komma($number+0);
}

sub _komma {
    my $number = shift;
    my @number = split(/\./, $number);
    my $ready  = '';

    while ($number[0] =~ /([+-]*\d+)(\d{3})$/) {
        $number[0] = $1;
        $ready     = '.'.$2.$ready;
    }
    $ready = $number[0].$ready;

    if ($number[1]) {
        $ready .= ",$number[1]";
    }

    return $ready;
}

sub komma0 {
    my $number = shift;

    return undef unless defined $number;
    return '' if $number eq '';

    my $round = ($number < 0) ? -$half : $half;
    return _komma(int($number + $round));
}

sub komma2 {
    my $number = shift;

    return undef unless defined $number;
    return '' if $number eq '';

    # round two digits after the dot
    my $round = ($number < 0) ? -$half : $half;
    $number   = int($number * 100 + $round);

    # eventually fill with zeros
    while (length $number < 3) {
        $number = "0".$number;
    }

    # insert dot
    $number =~ s/(\d\d)$/\.$1/;

    return _komma($number);
}


1;
__END__