-
-
-sub setup_database {
- my ( $self, $config, $namespace, $classes ) = @_;
- $config->{classes} = $classes;
- foreach my $class (@$classes) { $namespace->load_model_subclass($class); }
- $namespace->model_classes_loaded(1);
- $config->{table_to_class} = { map { $_->table => $_ } @$classes };
- $config->{tables} = [ keys %{ $config->{table_to_class} } ];
-}
-
-sub class_of {
- my ( $self, $r, $table ) = @_;
- return $r->config->{table_to_class}->{$table};
-}
-
-
-
-
-1;
-