File Coverage

blib/lib/Trickster/Request.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	2	4	50.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	3	3	100.0
total	34	38	89.4

package Trickster::Request;

use strict;
use warnings;
use v5.14;

use parent 'Plack::Request';

sub params {
    my ($self) = @_;
    return $self->env->{'trickster.params'} || {};
}

sub param {
    my ($self, $name) = @_;

    # Check route params first
    my $route_params = $self->params;
    return $route_params->{$name} if exists $route_params->{$name};

    # Fall back to query/body params
    return $self->SUPER::param($name);
}

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

    require JSON::PP;

    my $body = $self->content;
    return unless $body;

    return JSON::PP::decode_json($body);
}

1;

__END__