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};
}
=head1 DESCRIPTION
This module allows you to use Maypole with previously set-up
-C<Class::DBI> classes.
+C<Class::DBI> classes; simply call C<setup> with a list reference
+of the classes you're going to use, and Maypole will work out the
+tables and set up the inheritance relationships as normal.
+
+=cut
+