1 use Test::More tests => 2;
6 package MyApp::Component;
11 is($caller, 'Catalyst::Component', 'Correct method resolution');
14 package MyApp::MyComponent;
16 use base 'Catalyst::Component', 'MyApp::Component';
21 my $expects = qr/after Catalyst::Component in MyApp::Component/;
22 local $SIG{__WARN__} = sub {
23 like($_[0], $expects, 'correct warning thrown');
25 MyApp::MyComponent->COMPONENT('MyApp');