File Coverage

blib/lib/Template/Plugin/Text/Greeking.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	7	8	87.5
condition	1	2	50.0
subroutine	8	8	100.0
pod	1	1	100.0
total	51	53	96.2

package Template::Plugin::Text::Greeking;

use warnings;
use strict;
use v5.8.0;

use base "Template::Plugin";
use Text::Greeking;
use UNIVERSAL::require;

our $VERSION = '1.0';

sub new {
    my ($class, $context, $options) = @_;
    my $greeking_class = "Text::Greeking";
    $options ||= { lang => "en" };
    return sub {
        my $opt = { %$options, %{ $_[0] || {} } };

        if ($opt) {
            if ($opt->{lang} eq 'zh_TW') {
                $greeking_class = "Text::Greeking::zh_TW";
            }
        }

        $greeking_class->require();
        my $g = $greeking_class->new;
        for (qw(words paragraphs sentences)) {
            if ($opt->{$_}) {
                $g->$_(@{ $opt->{$_} })
            }
        }
        $g->generate()
    };
}

1; # Magic true value required at end of module
__END__