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