/[cvs]/nfo/perl/libs/DesignPattern/Bridge.pm
ViewVC logotype

Diff of /nfo/perl/libs/DesignPattern/Bridge.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by root, Fri Jan 31 01:19:50 2003 UTC revision 1.6 by joko, Sun Feb 9 16:22:51 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## --------------------------------------------------------------------------------  ## --------------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.6  2003/02/09 16:22:51  joko
6    ##  + pseudo constructor mechanism via options
7    ##
8  ##  Revision 1.5  2003/01/31 01:19:50  root  ##  Revision 1.5  2003/01/31 01:19:50  root
9  ##  + fixed: doesn't need Log::Dispatch any more, but uses it if available  ##  + fixed: doesn't need Log::Dispatch any more, but uses it if available
10  ##  ##
# Line 107  my $meta; Line 110  my $meta;
110      my $self = shift;      my $self = shift;
111      my $modulename_load = shift;      my $modulename_load = shift;
112    
113        my $options = shift;
114    
115      my $self_modulename = ref $self;      my $self_modulename = ref $self;
116      my $package = $self->_getPluginPackage($modulename_load);      my $package = $self->_getPluginPackage($modulename_load);
117            
# Line 143  my $meta; Line 148  my $meta;
148      # switch into foreign package and mixin plugin-module      # switch into foreign package and mixin plugin-module
149      $self->mixinPackage($package);      $self->mixinPackage($package);
150    
151        if (my $method = $options->{method}) {
152          $self->$method();
153        }
154    
155      return 1;      return 1;
156            
157    }    }
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed