File Coverage

blib/lib/Template/Plugin/Monta.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	7	57.1
pod	0	2	0.0
total	16	39	41.0

package Template::Plugin::Monta;
use strict;
use base qw/Template::Plugin::Filter/;
use vars qw/$VERSION $DYNAMIC $FILTER_NAME/;
use Acme::Monta;

$VERSION = 0.03;
$DYNAMIC = 1;
$FILTER_NAME = 'monta';

my @setting_params  = qw/
	start end open_font open_back close_font
	close_back close_img replace_tag cursor
/;

sub init {
	my($self, $args) = @_;
	my $name = $self->{_ARGS}->[0] || $FILTER_NAME;
	$self->install_filter($name);
	return $self;
}

sub _param_check {
	my $key = shift;
	foreach(@setting_params){
		return 1 if($key eq $_);
	}
	return undef;
}

sub filter {
	my($self, $text, $args, $config) = @_;
	my $monta = Acme::Monta->new(
		map { ( $_ => $config->{$_} ) }
		grep{ _param_check($_) }
		keys %$config
	);
	return $monta->montaize($text);
}

1;
__END__