1 package CatalystX::ModelsFromConfig;
3 use Catalyst::Model::Adaptor ();
4 use namespace::autoclean;
12 # Note method reaming - allows user to modify my setup_dynamic_component without being
13 # forced to do it globally.
14 with 'CatalystX::DynamicComponent' => {
15 name => '_setup_dynamic_model',
17 my ($component_class_name, $app, $args) = @_;
19 my $class = delete $args->{class};
20 Class::MOP::load_class($class);
26 after 'setup_components' => sub { shift->_setup_dynamic_models(@_); };
28 sub _setup_dynamic_models {
31 my $app_name = blessed($app) || $app;
32 my $model_prefix = 'Model::';
34 my $config = $app->config || {};
36 foreach my $model_name ( grep { /^$model_prefix/ } keys %$config ) {
37 my $model_class_name = $app_name . '::' . $model_name;
39 $app->_setup_dynamic_model( $model_class_name, $config->{$model_name} );