File Coverage

blib/lib/Raisin/Request.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	13	14	92.8
condition	3	3	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	54	55	98.1

#!perl
#PODNAME: Raisin::Request
#ABSTRACT: Request class for Raisin.

use strict;
use warnings;

package Raisin::Request;
$Raisin::Request::VERSION = '0.92';
use parent 'Plack::Request';

sub prepare_params {
    my ($self, $declared, $named) = @_;

    $self->{'raisin.declared'} = $declared;

    # PRECEDENCE:
    #   - path
    #   - query
    #   - body
    my %params = (
        %{ $self->env->{'raisinx.body_params'} || {} },
        %{ $self->query_parameters->as_hashref_mixed || {} },
        %{ $named || {} },
    );

    $self->{'raisin.parameters'} = \%params;

    my $retval = 1;

    foreach my $p (@$declared) {
        my $name = $p->name;
        my $value = $params{$name};

        if (not $p->validate(\$value)) {
            $retval = 0;
            $p->required ? return : next;
        }

        $value //= $p->default if defined $p->default;
        next if not defined($value);

        $self->{'raisin.declared_params'}{$name} = $value;
    }

    $retval;
}

sub declared_params { shift->{'raisin.declared_params'} }
sub raisin_parameters { shift->{'raisin.parameters'} }

1;

__END__