File Coverage

blib/lib/Dancer/Plugin/Transformator.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	6	0.0
condition			n/a
subroutine	5	8	62.5
pod			n/a
total	20	42	47.6

use strict;
use warnings;

package Dancer::Plugin::Transformator;

# ABSTRACT: Dancer plugin for Net::NodeTransformator

use Dancer ':syntax';
use Dancer::Plugin;
use Net::NodeTransformator;

our $VERSION = '0.001';       # VERSION
our $CLASS   = __PACKAGE__;

our $NNT;

sub _get_instance {
    my $config = plugin_setting;
    if ( $config->{connect} ) {
        return Net::NodeTransformator->new( $config->{connect} );
    }
    else {
        unless ($NNT) {
            $NNT = Net::NodeTransformator->standalone;
        }
        return $NNT;
    }
}

register transform => sub {
    my ( $engine, $input, $data ) = @_;
    my $nnt = _get_instance();
    $nnt->transform( $engine, $input, $data );
};

register transform_output => sub {
    my ( $engine, $data ) = @_;
    var $CLASS = [] unless exists vars->{$CLASS};
    push @{ vars->{$CLASS} } => { engine => $engine, data => $data };
};

hook after => sub {
    my $response = shift;
    if ( exists vars->{$CLASS} ) {
        my $nnt        = _get_instance();
        my $transforms = delete vars->{$CLASS};
        foreach my $transform (@$transforms) {
            $response->content(
                $nnt->transform(
                    $transform->{engine}, $response->content,
                    $transform->{data}
                )
            );
        }
    }
};

register_plugin;

__END__