File Coverage

blib/lib/Nephia/Plugin/ResponseHandler.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	3	4	75.0
condition	7	13	53.8
subroutine	10	10	100.0
pod	0	1	0.0
total	65	73	89.0

package Nephia::Plugin::ResponseHandler;
use 5.008005;
use strict;
use warnings;
use parent 'Nephia::Plugin';
use Nephia::Response;

our $VERSION = "0.02";

sub new {
    my ($class, %opts) = @_;
    my $self = $class->SUPER::new(%opts);
    $self->app->{response_handler} = $opts{handler};
    $self->app->{response_handler}{HASH}   ||= $self->can('_hash_handler');
    $self->app->{response_handler}{ARRAY}  ||= $self->can('_array_handler');
    $self->app->{response_handler}{SCALAR} ||= $self->can('_scalar_handler');
    my $app = $self->app;
    $app->action_chain->after('Core', ResponseHandler => $self->can('_response_handler'));
    return $self;
}

sub _response_handler {
    my ($app, $context) = @_;
    my $res = $context->get('res');
    my $type = ref($res) || 'SCALAR';
    if ($app->{response_handler}{$type}) {
        $app->{response_handler}{$type}->($app, $context);
    }
    return $context;
}

sub _hash_handler {
    my ($app, $context) = @_;
    my $res = $context->get('res');
    if ($res->{template}) {
        my $template = delete($res->{template});
        my $content_type = delete($res->{content_type}) || 'text/html; charset=UTF-8';
        my $res_obj = Nephia::Response->new(
            200,
            ['Content-Type' => $content_type],
            $app->dsl('render')->($template, $res)
        );
        $context->set('res' => $res_obj);
        return $res_obj;
    }
    else {
        return $app->dsl('json_res')->($res)
    }
}

sub _array_handler {
    my ($app, $context) = @_;
    my $res = $context->get('res');
    $context->set('res' => Nephia::Response->new(@$res));
}

sub _scalar_handler {
    my ($app, $context) = @_;
    my $res = $context->get('res');
    $context->set('res' => Nephia::Response->new(200, ['Content-Type' => 'text/html; charset=UTF-8'], $res));
}

1;
__END__