t/lib/TestApp/Controller/BodyParams.pm

   1 package TestApp::Controller::BodyParams;
   2
   3 use strict;
   4 use base 'Catalyst::Controller';
   5
   6 sub default : Private {
   7     my ( $self, $c ) = @_;
   8     $c->req->body_params({override => 'that'});
   9     $c->res->output($c->req->body_params->{override});
  10     $c->res->status(200);
  11 }
  12
  13 sub no_params : Local {
  14     my ( $self, $c ) = @_;
  15     my $params = $c->req->body_parameters;
  16     $c->res->output(ref $params);
  17     $c->res->status(200);
  18 }
  19
  20 1;