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