X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4aded4e8dae01257d3d835251b9ae7c2d7c8a767..78034f2431414b414d171b720bc0438635e19ae5:/SL/DB/Helpers/Metadata.pm diff --git a/SL/DB/Helpers/Metadata.pm b/SL/DB/Helpers/Metadata.pm index 0c1f37419..30c59f428 100644 --- 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;