Attribute Helper umgeschrieben.

[mfinanz.git] / SL / DB / Helpers / Metadata.pm

diff --git a/SL/DB/Helpers/Metadata.pm b/SL/DB/Helpers/Metadata.pm
index 0c1f37419897e3708ad3955ac2a82ce05d2f1d87..30c59f428b93c23c7579e4d4e186dfa591b7ff95 100644 (file)
--- a/SL/DB/Helpers/Metadata.pm
+++ b/SL/DB/Helpers/Metadata.pm
@@ -15,4 +15,20 @@ sub default_manager_base_class {
   return 'SL::DB::Helpers::Manager';
 }
 
+sub initialize {
+  my $self = shift;
+  $self->make_attr_auto_helpers;
+  $self->SUPER::initialize(@_);
+}
+
+sub make_attr_helpers {
+  my ($self, %params) = @_;
+  SL::DB::Helper::Attr::make($self->class, %params);
+}
+
+sub make_attr_auto_helpers {
+  my ($self) = @_;
+  SL::DB::Helper::Attr::auto_make($self->class);
+}
+
 1;