package Maypole::Model::CDBI;
use strict;
+use Class::C3;
use Data::Dumper;
=cut
use base qw(Maypole::Model::Base Class::DBI);
-#use Class::DBI::Plugin::Type;
use Class::DBI::Loader;
use Class::DBI::AbstractSearch;
use Class::DBI::Plugin::RetrieveAll;
use attributes ();
use Maypole::Model::CDBI::AsForm;
-use Maypole::Model::CDBI::FromCGI;
+use Maypole::Model::CDBI::FromCGI;
use CGI::Untaint::Maypole;
=head2 Untainter
Note it must be of type CGI::Untaint::Maypole (takes $r arg) or CGI::Untaint
=cut
+
sub Untainter { 'CGI::Untaint::Maypole' };
-# or if you like bugs
+=head2 add_model_superclass
+
+Adds model as superclass to model classes (if necessary)
+
+=cut
-#use Class::DBI::FromCGI;
-#use CGI::Untaint;
-#sub Untainter { 'CGI::Untaint' };
+sub add_model_superclass {
+ my ($class,$config) = @_;
+ foreach my $subclass ( @{ $config->classes } ) {
+ next if $subclass->isa("Maypole::Model::Base");
+ no strict 'refs';
+ push @{ $subclass . "::ISA" }, $config->model;
+ }
+ return;
+}
__PACKAGE__->mk_classdata($_) for (qw/COLUMN_INFO/);