# This file documents the revision history for Perl extension Catalyst.
+5.90089_001 - TBA
+
5.90084 - 2015-02-23
- Small change to the way body parameters are created in order to prevent
trying to create parameters twice.
test case to prevent regressions.
5.90080 - 2015-01-09
+>>>>>>> master
- Minor documentation corrections
- Make the '79 development series stable
__PACKAGE__->_encode_check(Encode::FB_CROAK | Encode::LEAVE_SRC);
# Remember to update this in Catalyst::Runtime as well!
-our $VERSION = '5.90084';
+our $VERSION = '5.90089_001';
$VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases
sub import {
# Remember to update this in Catalyst as well!
-our $VERSION = '5.90084';
+our $VERSION = '5.90089_001';
$VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases
=head1 NAME
--- /dev/null
+use warnings;
+use strict;
+use Test::More;
+use HTTP::Request::Common;
+
+{
+ package MyApp::Controller::Root;
+ $INC{'MyApp/Controller/Root.pm'} = __FILE__;
+
+ use Moose;
+ use MooseX::MethodAttributes;
+
+ extends 'Catalyst::Controller';
+
+ sub check :Local {
+ pop->res->from_psgi_response([200, ['Content-Type'=>'text/plain'],['check']]);
+ }
+
+ MyApp::Controller::Root->config(namespace=>'');
+
+ package MyApp;
+ use Catalyst;
+
+ MyApp->setup;
+}
+
+use Catalyst::Test 'MyApp';
+
+{
+ my $res = request '/check';
+ is $res->code, 200, 'OK';
+ is $res->content, 'check', 'correct body';
+ is $res->content_length, 5, 'correct length';
+}
+
+done_testing;