8 package TestApp::Controller::Base;
9 use base qw/Catalyst::Controller/;
12 package TestApp::Controller::Other;
13 use base qw/TestApp::Controller::Base/;
16 TestApp->setup_component('TestApp::Controller::Other');
17 TestApp->setup_component('TestApp::Controller::Base');
19 use Test::More tests => 1;
22 # Metaclass init order causes fail.
23 # There are TODO tests in Moose for this, see
24 # f2391d17574eff81d911b97be15ea51080500003
25 # after which the evil kludge in core can die in a fire.
28 TestApp::Controller::Base->get_action_methods
29 } 'Base class->get_action_methods ok when sub class initialized first';