1use strict; 2use warnings; 3use Test::More tests => 2; 4 5{ 6 package CatalystX::App::Model::AModel; 7 use Moose; 8 extends 'Catalyst::Model'; 9 with 'CatalystX::Component::Traits'; 10} 11 12ok((my $instance = CatalystX::App::Model::AModel->new), 'instance'); 13 14is_deeply [$instance->_trait_search_order('Trait', 'Foo')], [ 15 'CatalystX::App::TraitFor::Model::AModel::Foo' 16], 'trait search order'; 17