File Coverage

blib/lib/Template/Plugin/Transformator.pm

Criterion	Covered	Total	%
statement	25	33	75.7
branch	1	4	25.0
condition	2	10	20.0
subroutine	6	7	85.7
pod	0	2	0.0
total	34	56	60.7

use strict;
use warnings;

package Template::Plugin::Transformator;

# ABSTRACT: TemplateToolkit plugin for Net::NodeTransformator

use Net::NodeTransformator;
use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );

our $VERSION = '0.001';    # VERSION

sub init {
    my $self = shift;

    $self->{config} =
      $self->{_CONTEXT}->{CONFIG}->{PLUGIN_CONFIG}->{Transformator} || {};

    my %config = %{ $self->{_CONFIG} };
    my @args   = @{ $self->{_ARGS} };

    my $name = $config{name} || 'Transformator';

    $self->{_DYNAMIC} = 1;

    $self->install_filter($name);

    $self->{nnt} =
      $self->{config}->{connect}
      ? Net::NodeTransformator->new( $self->{config}->{connect} )
      : Net::NodeTransformator->standalone;

    $self->{engine} = $config{engine} || $args[0];

    return $self;
}

sub filter {
    my ( $self, $text, $args, $conf ) = @_;

    my %config = %$conf;

    my $nnt =
      $config{connect}
      ? Net::NodeTransformator->new( $config{connect} )
      : $self->{nnt};

    my $engine = $self->{engine};
    $engine ||= shift @$args;

    $text = $nnt->transform( $engine, $text, $conf );
}

1;

__END__