/[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.6 by joko, Sun Feb 9 16:22:51 2003 UTC revision 1.7 by joko, Tue Feb 11 10:34:19 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## --------------------------------------------------------------------------------  ## --------------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.7  2003/02/11 10:34:19  joko
6    ##  + loaded module may now lack 'mixin::with' declaration
7    ##  + this gets us the possibility to load modules from any perl namespace
8    ##     + enabled this mechanism
9    ##
10  ##  Revision 1.6  2003/02/09 16:22:51  joko  ##  Revision 1.6  2003/02/09 16:22:51  joko
11  ##  + pseudo constructor mechanism via options  ##  + pseudo constructor mechanism via options
12  ##  ##
# Line 35  use Data::Dumper; Line 40  use Data::Dumper;
40    
41  ## ========   object inheritance   ========  ## ========   object inheritance   ========
42    
43  # TODO:  # TODO / REFACTORING PROPOSAL
44    # leading from Data::Storage to code abstracted out into this module - DesignPattern::Bridge
45  #   - this is no inheritance and it doesn't have to be  #   - this is no inheritance and it doesn't have to be
46  #   - implement this module as a bridge to its sub-modules  #   - implement this module as a bridge to its sub-modules
47  #   - use the BridgePattern (http://c2.com/cgi/wiki?BridgePattern)  #   - use the BridgePattern (http://c2.com/cgi/wiki?BridgePattern)
# Line 46  use Data::Dumper; Line 52  use Data::Dumper;
52  #   - sub getChildNodes  #   - sub getChildNodes
53  #   - sub run  #   - sub run
54    
55    # 2003-02-11, joko: does this have anything in parallel with CPAN's Class::Inner?
56    
57    
58  # get logger instance  # get logger instance
59  my $logger = eval { Log::Dispatch::Config->instance; };  my $logger = eval { Log::Dispatch::Config->instance; };
60        
61  my $meta;  my $meta;
62    
63  ## ========   object constructor   ========  ## ========   object constructor   ========
64    sub new {  sub new {
65      my $invocant = shift;    my $invocant = shift;
66      my $class = ref($invocant) || $invocant;    my $class = ref($invocant) || $invocant;
67      my @args = ();    my @args = ();
68      @_ && (@args = @_);    @_ && (@args = @_);
69      $logger->debug( __PACKAGE__ . "->new(@args)" ) if $logger;    $logger->debug( __PACKAGE__ . "->new(@args)" ) if $logger;
70      my $self = { @_ };    my $self = { @_ };
71    
72      # trace
73      #print "class: $class", "\n";      #print "class: $class", "\n";
74      bless $self, $class;  
75      ##if (my $bizWorks = shift) {    # create instance
76        ##$self->boot($bizWorks);    bless $self, $class;
77      ##}    
78          return $self;
79      return $self;  }
   }  
80    
81    
82  ## ========   method overrider   ========  ## ========   method overrider   ========
# Line 101  my $meta; Line 111  my $meta;
111            
112      # build full package name      # build full package name
113      my $self_classname = ref $self;      my $self_classname = ref $self;
114      my $package = $self_classname . '::' . $modulename_load;        # name
115          my $package = $modulename_load;
116          
117          # if package is absolute, cut away prefix ('/' or '::')
118          if ($package !~ s/^:://) {
119            # else: prefix with base classname if above name is relative (lacks of '/' or '::')
120            $package = $self_classname . '::' . $package
121          }
122        
123      return $package;      return $package;
124    }    }
125        
# Line 145  my $meta; Line 163  my $meta;
163      #bless $self, $package;      #bless $self, $package;
164    
165      # V2:      # V2:
166      # switch into foreign package and mixin plugin-module  
167      $self->mixinPackage($package);      # switch into foreign package and prepare for mixin
168        $self->mixin_prepare($package);
169    
170        # switch into local package (scope which uses DesignPattern::Bridge) and mixin plugin-module
171        $self->mixin_do($package);
172    
173      if (my $method = $options->{method}) {      if (my $method = $options->{method}) {
174        $self->$method();        $self->$method();
# Line 157  my $meta; Line 179  my $meta;
179    }    }
180    
181    # TODO: maybe refactor to DesignPattern::Object? what about the '$logger'?    # TODO: maybe refactor to DesignPattern::Object? what about the '$logger'?
182    sub mixinPackage {    sub mixin_prepare {
183        my $self = shift;
184        my $package = shift;
185        my $self_classname = ref $self;
186        eval("package $package; use mixin::with '$self_classname';");
187    
188        # FIXME: --- this is redundant ---
189        if ($@) {
190          $meta->{loaded}->{$package} = 0;
191          $logger->error( __PACKAGE__ . "->load: $@" ) if $logger;
192        } else {
193          $meta->{loaded}->{$package} = 1;
194        }
195        # FIXME: --- this is redundant ---
196    
197      }
198    
199      sub mixin_do {
200      my $self = shift;      my $self = shift;
201      my $package = shift;      my $package = shift;
202      # switch into foreign package and mixin plugin-module      # switch into foreign package and mixin plugin-module
203      my $self_classname = ref $self;      my $self_classname = ref $self;
204      eval("package $self_classname; use mixin '$package';");      eval("package $self_classname; use mixin '$package';");
205      #eval("use mixin_all '$package';");      #eval("use mixin_all '$package';");
206    
207        # FIXME: --- this is redundant ---
208      if ($@) {      if ($@) {
209        $meta->{loaded}->{$package} = 0;        $meta->{loaded}->{$package} = 0;
210        $logger->error( __PACKAGE__ . "->load: $@" ) if $logger;        $logger->error( __PACKAGE__ . "->load: $@" ) if $logger;
211      } else {      } else {
212        $meta->{loaded}->{$package} = 1;        $meta->{loaded}->{$package} = 1;
213      }      }
214        # FIXME: --- this is redundant ---
215    
216    }    }
217    
218    sub unload {    sub unload {
# Line 203  my $meta; Line 246  my $meta;
246    }    }
247    
248  1;  1;
249    __END__
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed