summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c0b0452)
+use Data::Dumper;
+
+use Maypole::Config;
use Maypole::Model::CDBI::AsForm;
use Maypole::Model::CDBI::AsForm;
-use base qw(Maypole::Model::Base);
+use base qw(Maypole::Model::CDBI::Base);
Maypole::Config->mk_accessors(qw(table_to_class _COLUMN_INFO));
Maypole::Config->mk_accessors(qw(table_to_class _COLUMN_INFO));
sub setup_database {
my ( $self, $config, $namespace, $classes ) = @_;
$config->{classes} = $classes;
sub setup_database {
my ( $self, $config, $namespace, $classes ) = @_;
$config->{classes} = $classes;
- foreach my $class (@$classes) { $namespace->load_model_subclass($class); }
+ 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} } ];
$namespace->model_classes_loaded(1);
$config->{table_to_class} = { map { $_->table => $_ } @$classes };
$config->{tables} = [ keys %{ $config->{table_to_class} } ];