/[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.8 by joko, Fri Feb 14 14:20:05 2003 UTC revision 1.9 by joko, Tue Feb 18 18:35:30 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## --------------------------------------------------------------------------------  ## --------------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.9  2003/02/18 18:35:30  joko
6    ##  + encapsulated/abstracted some more functionality: sub load_single
7    ##
8  ##  Revision 1.8  2003/02/14 14:20:05  joko  ##  Revision 1.8  2003/02/14 14:20:05  joko
9  ##  + modified mixin behaviour  ##  + modified mixin behaviour
10  ##  ##
# Line 129  sub new { Line 132  sub new {
132    sub load {    sub load {
133    
134      my $self = shift;      my $self = shift;
135        my $modulename = shift;
136        my $options = shift;
137    
138        if (ref $modulename eq 'ARRAY') {
139          foreach (@$modulename) {
140            $self->load_single($_, $options);
141          }
142        } else {
143          $self->load_single($modulename, $options);
144        }
145    
146      }
147    
148      sub load_single {
149    
150        my $self = shift;
151      my $modulename_load = shift;      my $modulename_load = shift;
152    
153      my $options = shift;      my $options = shift;
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed