changed type validation error to 404

[catagits/CatalystX-Declare.git] / lib / CatalystX / Declare / Action / CatchValidationError.pm

use MooseX::Declare;

role CatalystX::Declare::Action::CatchValidationError {

    use TryCatch;

    around execute (Object $controller, Object $ctx, @rest) {

        my $tc = $controller->meta->find_method_type_constraint($self->name)
              || do {
                   my $method = $controller->meta->find_method_by_name($self->name);
                   ( $_ = $method->can('type_constraint') )
                     ? $method->$_
                     : undef
                 };

        if ($tc and my $error = $tc->validate([$controller, $ctx, @rest])) {

            if ($ctx->debug) {
                $ctx->error("BAD REQUEST: $error");
            }
            else {
                $ctx->response->body( 'Not found' );
                $ctx->response->status( 404 );
            }
            
            $ctx->detach;
        }

        try {
            $self->$orig($controller, $ctx, @rest);
        }
        catch (Any $error) {

            $ctx->error($error);
            $ctx->detach;
        }

        return 1;
    }
}