--- nfo/perl/libs/DesignPattern/Object.pm	2003/01/22 17:56:49	1.4
+++ nfo/perl/libs/DesignPattern/Object.pm	2003/02/09 16:24:46	1.5
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: Object.pm,v 1.4 2003/01/22 17:56:49 root Exp $
+##  $Id: Object.pm,v 1.5 2003/02/09 16:24:46 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: Object.pm,v $
+##  Revision 1.5  2003/02/09 16:24:46  joko
+##  + pseudo constructor mechanism by calling method 'constructor' on object instantiation
+##
 ##  Revision 1.4  2003/01/22 17:56:49  root
 ##  + fix: just use the logger if it's available
 ##
@@ -97,6 +100,7 @@
   $self->{__classname} = $classname;
 
   $self->_init() if $self->can('_init');
+  $self->constructor() if $self->can('constructor');
 
   return $self;
 }  
@@ -151,6 +155,7 @@
 
   # run boot-methods on object
     $object->_init() if $object->can('_init');
+    $object->constructor() if $object->can('constructor');
 
   return $object;
 }