X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI%2FPlain.pm;h=b76cff38e507f0a97c245cedbc76ae32591fa38e;hp=37abc6734be882746d77d6b3475ed2bc64d56f72;hb=3886be13f39d6d3fc8d0b76d4716175df1bb8056;hpb=e06d085e9d38fa214338826c5e94dbe13fd9160d diff --git a/lib/Maypole/Model/CDBI/Plain.pm b/lib/Maypole/Model/CDBI/Plain.pm index 37abc67..b76cff3 100644 --- a/lib/Maypole/Model/CDBI/Plain.pm +++ b/lib/Maypole/Model/CDBI/Plain.pm @@ -5,9 +5,13 @@ use strict; Maypole::Config->mk_accessors(qw(table_to_class)); + + sub setup_database { my ( $self, $config, $namespace, $classes ) = @_; $config->{classes} = $classes; + foreach my $class (@$classes) { $namespace->load_model_subclass(); } + $namespace->model_classes_loaded(1); $config->{table_to_class} = { map { $_->table => $_ } @$classes }; $config->{tables} = [ keys %{ $config->{table_to_class} } ]; } @@ -17,6 +21,9 @@ sub class_of { return $r->config->{table_to_class}->{$table}; } + + + 1; =head1 NAME