6 package MyAppChild::Controller::User;
7 $INC{'MyAppChild/Controller/User.pm'} = __FILE__;
9 use base 'Catalyst::Controller';
14 $c->stash->{inner} = "inner";
15 $c->res->body( "inner: ${\$c->stash->{inner}}, outer: ${\$c->stash->{outer}}");
18 my $stash = $c->stash;
21 is_deeply [sort {$a cmp $b} keys($c->stash)], ['inner','outer'], 'both keys in stash';
25 $INC{'MyAppChild.pm'} = __FILE__;
30 package MyAppParent::Controller::User;
31 $INC{'MyAppParent/Controller/User.pm'} = __FILE__;
33 use base 'Catalyst::Controller';
38 $c->stash->{outer} = "outer";
39 $c->res->from_psgi_response( MyAppChild->to_app->($c->req->env) );
41 is_deeply [keys($c->stash)], ['outer'], 'only one key in stash';
51 use Catalyst::Test 'MyAppParent';
53 my $res = request '/user/stash';
54 is $res->content, 'inner: inner, outer: outer', 'got expected response';