8 $INC{'TestRole'} = __FILE__;
14 package Catalyst::TraitFor::Request::Foo;
15 $INC{'Catalyst/TraitFor/Request/Foo.pm'} = __FILE__;
20 package TestApp::TraitFor::Request::Bar;
21 $INC{'TestApp/TraitFor/Request/Bar.pm'} = __FILE__;
26 package Catalyst::TraitFor::Response::Foo;
27 $INC{'Catalyst/TraitFor/Response/Foo.pm'} = __FILE__;
33 package TestApp::TraitFor::Response::Bar;
34 $INC{'TestApp/TraitFor/Response/Bar.pm'} = __FILE__;
43 $INC{'TestApp.pm'} = __FILE__;
47 __PACKAGE__->request_class_traits([qw/TestRole Foo Bar/]);
48 __PACKAGE__->response_class_traits([qw/TestRole Foo Bar/]);
49 __PACKAGE__->stats_class_traits([qw/TestRole/]);
55 foreach my $class_prefix (qw/request response stats/) {
56 my $method = 'composed_' .$class_prefix. '_class';
58 Class::MOP::class_of(TestApp->$method)->does_role('TestRole'),
59 "$method does TestRole",
63 use Catalyst::Test 'TestApp';
65 my ($res, $c) = ctx_request '/';