File Coverage

blib/lib/Trickster/Response.pm

Criterion	Covered	Total	%
statement	30	38	78.9
branch			n/a
condition	4	8	50.0
subroutine	7	9	77.7
pod	4	5	80.0
total	45	60	75.0

package Trickster::Response;

use strict;
use warnings;
use v5.14;

use parent 'Plack::Response';

sub json {
    my ($self, $data, $status) = @_;

    require JSON::PP;
    require Encode;

    $self->status($status || 200);
    $self->content_type('application/json; charset=utf-8');

    my $json = JSON::PP::encode_json($data);
    $self->body(Encode::encode_utf8($json));

    return $self;
}

sub html {
    my ($self, $content, $status) = @_;

    require Encode;

    $self->status($status || 200);
    $self->content_type('text/html; charset=utf-8');
    $self->body(Encode::encode_utf8($content));

    return $self;
}

sub text {
    my ($self, $content, $status) = @_;

    require Encode;

    $self->status($status || 200);
    $self->content_type('text/plain; charset=utf-8');
    $self->body(Encode::encode_utf8($content));

    return $self;
}

sub redirect {
    my ($self, $location, $status) = @_;

    $self->status($status || 302);
    $self->header('Location' => $location);
    $self->body('');

    return $self;
}

sub render {
    my ($self, $template, $vars, $status) = @_;

    # This method requires a template engine to be set
    # It will be called by the template engine's response helper
    die "Template engine not configured. Use Trickster::Template->response_helper()";
}

1;

__END__