Attribute nicht doppelt anlegen
authorSven Schöling <s.schoeling@linet-services.de>
Thu, 21 Oct 2010 09:33:20 +0000 (11:33 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Thu, 21 Oct 2010 14:21:03 +0000 (16:21 +0200)
setup führt ein frühes initialize durch, und wenn es danach nochmal manuell
passiert wurden die auto_attr_helper nochmla angelegt, was zu redefines geführt
hat. Das hier behebt das.

SL/DB/Helpers/Metadata.pm

index 30c59f4..e6020a2 100644 (file)
@@ -17,7 +17,7 @@ sub default_manager_base_class {
 
 sub initialize {
   my $self = shift;
-  $self->make_attr_auto_helpers;
+  $self->make_attr_auto_helpers unless $self->is_initialized;
   $self->SUPER::initialize(@_);
 }