13 package Catalyst::TraitFor::Request::Foo;
18 package TestApp::TraitFor::Request::Bar;
23 package Catalyst::TraitFor::Response::Foo;
28 package TestApp::TraitFor::Response::Bar;
39 __PACKAGE__->request_class_traits([qw/TestRole Foo Bar/]);
40 __PACKAGE__->response_class_traits([qw/TestRole Foo Bar/]);
41 __PACKAGE__->stats_class_traits([qw/TestRole/]);
47 foreach my $class_prefix (qw/request response stats/) {
48 my $method = 'composed_' .$class_prefix. '_class';
50 Class::MOP::class_of(TestApp->$method)->does_role('TestRole'),
51 "$method does TestRole",
55 use Catalyst::Test 'TestApp';
57 my ($res, $c) = ctx_request '/';