File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	37	38	97.3

package Template::Plugin::Lingua::EN::Fractions;

use strict;
use warnings;

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

use base qw(Template::Plugin);
use Template::Plugin;
use Template::Stash;
use Lingua::EN::Fractions qw( fraction2words );

$Template::Stash::SCALAR_OPS->{'fraction2words'} = \&_fraction2words;

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

    # now define the filter and return the plugin
    $context->define_filter('fraction2words', \&_fraction2words);
    return bless {}, $class;
}

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

1;

__END__