package Maypole::Constants;
package Maypole::Constants;
use base 'Exporter';
use constant OK => 0;
use constant DECLINED => -1;
use base 'Exporter';
use constant OK => 0;
use constant DECLINED => -1;
package Maypole::Model::Base;
package Maypole::Model::Base;
use Maypole::Constants;
use attributes ();
use Maypole::Constants;
use attributes ();
package Maypole::Model::CDBI::Plain;
use base 'Maypole::Model::CDBI';
package Maypole::Model::CDBI::Plain;
use base 'Maypole::Model::CDBI';
Maypole::Config->mk_accessors(qw(table_to_class));
Maypole::Config->mk_accessors(qw(table_to_class));