lib/CatalystX/ModelToControllerReflector.pm

   1 package CatalystX::ModelToControllerReflector;
   2 use Moose::Role;
   3 use namespace::clean -except => 'meta';
   4
   5 with 'CatalystX::DynamicComponent';
   6
   7 requires 'setup_components';
   8
   9 after 'setup_components' => sub { shift->_setup_dynamic_controllers(@_); };
  10
  11 sub _setup_dynamic_controllers {
  12     my ($app) = @_;
  13     my @model_names = grep { /::Model::/ } keys %{ $app->components };
  14
  15     foreach my $model_name (@model_names) {
  16         $app->_setup_dynamic_controller( $model_name, $app->components->{$model_name} );
  17     }
  18 }
  19
  20 sub _setup_dynamic_controller {
  21     my ($app, $model_name, $model_component) = @_;
  22     warn($model_name);
  23 }
  24
  25 1;
  26