File Coverage

blib/lib/Template/Plugin/JA/Fold.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	39	39	100.0

package Template::Plugin::JA::Fold;
use strict;
use warnings;
use utf8;
use 5.008001;
use base qw(Template::Plugin);
use Lingua::JA::Fold qw(fold);

our $VERSION = '0.03';

sub new {
	my ( $class, $context, @params ) = @_;
	$context->define_filter( 'fold' => $class->_filter_factory() );
	my $self = bless { _CONTEXT => $context, }, $class;
	return $self;
}

sub _filter_factory {
	my $class = shift;
	my $code  = sub {
		my ( $context, @args ) = @_;
		return sub {
			my $text = shift;
			fold( text => $text, length => $args[0], mode => $args[1] );
		};
	};
	return [ $code => 1 ];
}

1;
__END__