Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Sunday, October 18, 2026
[BACK] [TXT][DIR] Up to [Platon] / iotta / Iotta

Diff for iotta/Iotta/Chain.pm between version 1.1 and 1.2

version 1.1, 2003/02/16 15:48:06 version 1.2, 2003/03/23 11:29:54
Line 30  sub mod_add {
Line 30  sub mod_add {
         push @{$self->mods}, $mod;          push @{$self->mods}, $mod;
 }  }
   
   sub mod_inst {
           my $self = shift;
           my $modn = shift;
           my $req = $modn;
           $req =~ s/::/\//g;
           print STDERR "instantiating $modn\n";
           require "$req.pm";# unless $req =~ /^[ \t]*#.*$/;
           my $mod = $modn->new || die "could not instantiate $modn";
           return $mod;
   }
   
 sub mod_creat {  sub mod_creat {
         my $s = shift;          my $s = shift;
         my $modn = shift;          my $modn = shift;
Line 45  sub mod_creat {
Line 56  sub mod_creat {
         }          }
         my $modt = $$cfg{"mod/$modn"};          my $modt = $$cfg{"mod/$modn"};
         #print "trying to instantiate $modt (config)\n";          #print "trying to instantiate $modt (config)\n";
         print "trying to instantiate $modn ($modt)\n";          #print "trying to instantiate $modn ($modt)\n";
         my $mod = $modt->new || die "could not instantiate $modt ($modn)";          my $mod = $s->mod_inst ($modt);
         $mod->chain ($s);          $mod->chain ($s);
         $mod->setup(\%opts);          $mod->setup(\%opts);
         return $mod;          return $mod;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top