Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Piatok, 19. apríl 2024
[BACK] [TXT][DIR] Vyššie na [Platon] / iotta / Iotta

Rozdiely pre iotta/Iotta/Chain.pm medzi verziami 1.1 a 1.2

verzia 1.1, 2003/02/16 15:48:06 verzia 1.2, 2003/03/23 11:29:54
Riadok 30  sub mod_add {
Riadok 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;
Riadok 45  sub mod_creat {
Riadok 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:
Odstranené z verzie1.1  
zmenené riadky
  Pridané vo verzii1.2
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok