--- nfo/perl/libs/DesignPattern/Bridge.pm	2003/01/31 01:19:50	1.5
+++ nfo/perl/libs/DesignPattern/Bridge.pm	2003/02/09 16:22:51	1.6
@@ -1,7 +1,10 @@
 ## --------------------------------------------------------------------------------
-##  $Id: Bridge.pm,v 1.5 2003/01/31 01:19:50 root Exp $
+##  $Id: Bridge.pm,v 1.6 2003/02/09 16:22:51 joko Exp $
 ## --------------------------------------------------------------------------------
 ##  $Log: Bridge.pm,v $
+##  Revision 1.6  2003/02/09 16:22:51  joko
+##  + pseudo constructor mechanism via options
+##
 ##  Revision 1.5  2003/01/31 01:19:50  root
 ##  + fixed: doesn't need Log::Dispatch any more, but uses it if available
 ##
@@ -107,6 +110,8 @@
     my $self = shift;
     my $modulename_load = shift;
 
+    my $options = shift;
+
     my $self_modulename = ref $self;
     my $package = $self->_getPluginPackage($modulename_load);
     
@@ -143,6 +148,10 @@
     # switch into foreign package and mixin plugin-module
     $self->mixinPackage($package);
 
+    if (my $method = $options->{method}) {
+      $self->$method();
+    }
+
     return 1;
     
   }