File Coverage

blib/lib/Tatsumaki/Request.pm

Criterion	Covered	Total	%
statement	11	17	64.7
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	16	25	64.0

package Tatsumaki::Request;
use Encode;
use parent qw(Plack::Request);

use Tatsumaki::Response;

sub _build_parameters {
    my $self = shift;

    my $params = $self->SUPER::_build_parameters();

    my $decoded_params = {};
    while (my($k, $v) = each %$params) {
        $decoded_params->{decode_utf8($k)} = ref $v eq 'ARRAY'
            ? [ map decode_utf8($_), @$v ] : decode_utf8($v);
    }

    return $decoded_params;
}

sub new_response {
    my $self = shift;
    Tatsumaki::Response->new(@_);
}

1;