1 package CatalystX::ModelToControllerReflector;
3 use namespace::clean -except => 'meta';
5 with 'CatalystX::DynamicComponent';
7 requires 'setup_components';
9 after 'setup_components' => sub { shift->_setup_dynamic_controllers(@_); };
11 sub _setup_dynamic_controllers {
13 my @model_names = grep { /::Model::/ } keys %{ $app->components };
15 foreach my $model_name (@model_names) {
16 $app->_setup_dynamic_controller( $model_name, $app->components->{$model_name} );
20 sub _setup_dynamic_controller {
21 my ($app, $model_name, $model_component) = @_;