SL/DB/Helper/Metadata.pm

   1 package SL::DB::Helper::Metadata;
   2
   3 use strict;
   4
   5 use Rose::DB::Object::Metadata;
   6 use SL::DB::Helper::ConventionManager;
   7
   8 use base qw(Rose::DB::Object::Metadata);
   9
  10 sub convention_manager_class {
  11   return 'SL::DB::Helper::ConventionManager';
  12 }
  13
  14 sub default_manager_base_class {
  15   return 'SL::DB::Helper::Manager';
  16 }
  17
  18 sub initialize {
  19   my $self = shift;
  20   $self->make_attr_auto_helpers unless $self->is_initialized;
  21   $self->SUPER::initialize(@_);
  22 }
  23
  24 sub make_attr_helpers {
  25   my ($self, %params) = @_;
  26   SL::DB::Helper::Attr::make($self->class, %params);
  27 }
  28
  29 sub make_attr_auto_helpers {
  30   my ($self) = @_;
  31   SL::DB::Helper::Attr::auto_make($self->class);
  32 }
  33
  34 1;