X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalystX%2FDynamicComponent%2FModelToControllerReflector%2FStrategy%2FInterfaceRoles.pm;fp=lib%2FCatalystX%2FDynamicComponent%2FModelToControllerReflector%2FStrategy%2FInterfaceRoles.pm;h=ff1965f1e8ac4b1a9637be74f4d9afe9718e17f4;hb=84d8e4e1c7c3b67669a0ac8dac75b5a2f927dfeb;hp=5beb1aec06021bd73c9e32c11d61f5763e197778;hpb=f38d3061acf7d7abf266fecf958b9a138b7e7224;p=catagits%2FCatalystX-DynamicComponent.git diff --git a/lib/CatalystX/DynamicComponent/ModelToControllerReflector/Strategy/InterfaceRoles.pm b/lib/CatalystX/DynamicComponent/ModelToControllerReflector/Strategy/InterfaceRoles.pm index 5beb1ae..ff1965f 100644 --- a/lib/CatalystX/DynamicComponent/ModelToControllerReflector/Strategy/InterfaceRoles.pm +++ b/lib/CatalystX/DynamicComponent/ModelToControllerReflector/Strategy/InterfaceRoles.pm @@ -10,7 +10,10 @@ with 'CatalystX::DynamicComponent::ModelToControllerReflector::Strategy'; sub get_reflected_method_list {; my ($self, $app, $model_meta) = @_; my $model_name = $model_meta->name; - my $interface_roles = [ uniq( map { exists $_->{interface_roles} ? $_->{interface_roles}->flatten : () } $app->config->{$model_name}, $app->config->{'CatalystX::DynamicComponent::ModelToControllerReflector'} ) ]; + my $model_config = exists $app->config->{$model_name} ? $app->config->{$model_name} : {}; + my $my_config = exists $app->config->{'CatalystX::DynamicComponent::ModelToControllerReflector'} + ? $app->config->{'CatalystX::DynamicComponent::ModelToControllerReflector'} : {}; + my $interface_roles = [ uniq( map { (defined $_ && exists $_->{interface_roles}) ? $_->{interface_roles}->flatten : () } $model_config, $my_config ) ]; map { $_->meta->get_required_method_list } @$interface_roles; }