--- nfo/perl/libs/DesignPattern/Bridge.pm	2003/02/14 14:20:05	1.8
+++ nfo/perl/libs/DesignPattern/Bridge.pm	2003/02/18 18:35:30	1.9
@@ -1,7 +1,10 @@
 ## --------------------------------------------------------------------------------
-##  $Id: Bridge.pm,v 1.8 2003/02/14 14:20:05 joko Exp $
+##  $Id: Bridge.pm,v 1.9 2003/02/18 18:35:30 joko Exp $
 ## --------------------------------------------------------------------------------
 ##  $Log: Bridge.pm,v $
+##  Revision 1.9  2003/02/18 18:35:30  joko
+##  + encapsulated/abstracted some more functionality: sub load_single
+##
 ##  Revision 1.8  2003/02/14 14:20:05  joko
 ##  + modified mixin behaviour
 ##
@@ -129,6 +132,22 @@
   sub load {
 
     my $self = shift;
+    my $modulename = shift;
+    my $options = shift;
+
+    if (ref $modulename eq 'ARRAY') {
+      foreach (@$modulename) {
+        $self->load_single($_, $options);
+      }
+    } else {
+      $self->load_single($modulename, $options);
+    }
+
+  }
+
+  sub load_single {
+
+    my $self = shift;
     my $modulename_load = shift;
 
     my $options = shift;