1use strict; 2use warnings; 3use Test::More tests => 2; 4 5{ 6 package CatalystX::Something::ControllerBase::SomeController; 7 use Moose; 8 extends 'Catalyst::Controller'; 9 with 'CatalystX::Component::Traits'; 10 11 package My::App::Controller::AController; 12 use base 'CatalystX::Something::ControllerBase::SomeController'; 13} 14 15# squash warning from catalyst 16my $instance; 17{ 18 local $SIG{__WARN__} = sub {}; 19 20 ok(($instance = My::App::Controller::AController->new), 'instance'); 21} 22 23is_deeply [$instance->_trait_search_order('Trait', 'Foo')], [ 24 'My::App::TraitFor::Controller::SomeController::Foo', 25 'CatalystX::Something::TraitFor::Controller::SomeController::Foo', 26], 'trait search order'; 27