File Coverage

blib/lib/Template/Plugin/Lingua/EN/Numbers.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	4	8	50.0
condition			n/a
subroutine	14	14	100.0
pod	1	1	100.0
total	60	64	93.7

package Template::Plugin::Lingua::EN::Numbers;

use strict;
use warnings;

use vars qw($VERSION);
$VERSION = 0.01;

use base qw(Template::Plugin);
use Template::Plugin;
use Template::Stash;
use Lingua::EN::Numbers             qw( num2en num2en_ordinal );
use Lingua::EN::Numbers::Years      qw( year2en );
use Lingua::EN::Numbers::Ordinate   qw( ordinate );

$Template::Stash::SCALAR_OPS->{'num2en'}            = \&_num2en;
$Template::Stash::SCALAR_OPS->{'num2en_ordinal'}    = \&_num2en_ordinal;
$Template::Stash::SCALAR_OPS->{'year2en'}           = \&_year2en;
$Template::Stash::SCALAR_OPS->{'ordinate'}          = \&_ordinate;

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

    # now define the filter and return the plugin
    $context->define_filter('num2en',           \&_num2en);
    $context->define_filter('num2en_ordinal',   \&_num2en_ordinal);
    $context->define_filter('year2en',          \&_year2en);
    $context->define_filter('ordinate',         \&_ordinate);
    return bless {}, $class;
}

sub _num2en {
    my $options = ref $_[-1] eq 'HASH' ? pop : {};
    return num2en(join('', @_));
}

sub _num2en_ordinal {
    my $options = ref $_[-1] eq 'HASH' ? pop : {};
    return num2en_ordinal(join('', @_));
}

sub _year2en {
    my $options = ref $_[-1] eq 'HASH' ? pop : {};
    return year2en(join('', @_));
}

sub _ordinate {
    my $options = ref $_[-1] eq 'HASH' ? pop : {};
    return ordinate(join('', @_));
}

1;

__END__