SL/DB/Helpers/ConventionManager.pm

   1 package SL::DB::Helpers::ConventionManager;
   2
   3 use strict;
   4
   5 use Rose::DB::Object::ConventionManager;
   6
   7 use base qw(Rose::DB::Object::ConventionManager);
   8
   9 sub auto_manager_class_name {
  10   my $self         = shift;
  11   my $object_class = shift || $self->meta->class;
  12
  13   my @parts        = split m/::/, $object_class;
  14   my $last         = pop @parts;
  15
  16   return join('::', @parts, 'Manager', $last);
  17 }
  18
  19 # Base name used for 'make_manager_class', e.g. 'get_all',
  20 # 'update_all'
  21 sub auto_manager_base_name {
  22   return 'all';
  23 }
  24
  25 sub auto_manager_base_class {
  26   return 'SL::DB::Helpers::Manager';
  27 }
  28
  29 1;