package Maypole::Model::CDBI::Plain;
use base 'Maypole::Model::CDBI';
+
sub setup_database {
- my ($self, $config, $namespace, $classes) = @_;
- $config->{classes} = $classes;
- $config->{table_to_class} = { map { $_->table => $_ } @$classes };
- $config->{tables} = [ keys %{$config->{table_to_class}} ];
+ my ( $self, $config, $namespace, $classes ) = @_;
+ $config->{classes} = $classes;
+ $config->{table_to_class} = { map { $_->table => $_ } @$classes };
+ $config->{tables} = [ keys %{ $config->{table_to_class} } ];
}
sub class_of {
- my ($self, $r, $table) = @_;
+ my ( $self, $r, $table ) = @_;
return $r->config->{table_to_class}->{$table};
}
tables and set up the inheritance relationships as normal.
=cut
+