Verzeichnis SL/DB/Helpers in SL/DB/Helper umbenannt (Konsistenz)

[mfinanz.git] / SL / DB / Helper / ConventionManager.pm

diff --git a/SL/DB/Helper/ConventionManager.pm b/SL/DB/Helper/ConventionManager.pm
new file mode 100644 (file)
index 0000000..35c6b1e
--- /dev/null
+++ b/SL/DB/Helper/ConventionManager.pm
@@ -0,0 +1,29 @@
+package SL::DB::Helper::ConventionManager;
+
+use strict;
+
+use Rose::DB::Object::ConventionManager;
+
+use base qw(Rose::DB::Object::ConventionManager);
+
+sub auto_manager_class_name {
+  my $self         = shift;
+  my $object_class = shift || $self->meta->class;
+
+  my @parts        = split m/::/, $object_class;
+  my $last         = pop @parts;
+
+  return join('::', @parts, 'Manager', $last);
+}
+
+# Base name used for 'make_manager_class', e.g. 'get_all',
+# 'update_all'
+sub auto_manager_base_name {
+  return 'all';
+}
+
+sub auto_manager_base_class {
+  return 'SL::DB::Helper::Manager';
+}
+
+1;