2011-03-27T09:08:35 marky

Hallo, Deine erste Aussage stimmt nicht, genau das ist ja der Vorteil auch von require, es wird eben nur einmal reingezogen, egal wie oft es im Code steht

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

package my;
use Carp;

sub test{ croak 'UNIMPLEMENTED '.( caller(0) )[3]; }

package main;

for my $num (0..9)
{
  open(my $fh, '>', 'my.pm');
  print $fh <<EOC;
package my;

sub test{ $num }

1;
EOC
  close($fh);

  if(require 'my.pm')
  {
    print my::test()."\n";
    delete($INC{'my.pm'});
  }
}

2011-03-27T09:08:35 marky

"Note that the file will not be included twice under the same specified name."

2011-03-27T09:08:35 marky

Das Problem mit den Plugins ist klar - aber das ist doch grundsätzlich ein OO-Vererbung Problem, wenn Du Dich nicht an den In- und Output hälst, dann geht der ganze quatsch nicht mehr. Das ist aber normal, da muss man halt aufpassen und genau schauen, was die Funktion macht, die man ersetzt. Aber es gibt einfach keine andere Möglichkeit core-Funktionen zu ersetzen und den Code update-fähig zu halten.

Ich habe mir ja jetzt für die Modul-methode entschieden, dann muss man wenigstens im EXPORT genau festlegen, was man überschreiben will.

Aber ich gebe zu, dass das ein Problem ist, aber ein allgemeines, wenn man überschreiben von Methoden durch einfach vererbungserweiterung zulässt, was aber heute die normale Vorgehensweise darstellt.

Die andere Möglichkeit sind HOOKs, was auch viele machen, da kannst Du aber halt nur ein bestimmten stellen bestimmte Dinge tun, zb. einen Hook nach dem Login etc.

2011-03-27T09:08:35 marky

In diesem ganzen Thema ist PHP leider extrem weit nach vorne gegangen, das es mir fast schon weh tut, wenn ich sehen muss, wie das hier umsetzen muss. Die haben jetzt richtig geniale Autoload-Funktionen und das OO-Thema ist echt gut umgesetzt, wenn sich die gängigen Design-Pattern anschaut und vergleicht, wie man das in beiden Sprachen jeweils umsetzt, dann ist teilweise wirklich nicht gut in Perl.

2011-03-27T09:08:35 marky

Was das grosse Problem ist, ist dass interface nur schwer umzusetzen sind. Normal programmierst Du so Plugins nur gegen ein interface, das interface schreibt vor, welche Subs dann Plugin haben muss und welche Variablen eine Sub haben muss mit Typ. Dadurch ist das nicht mehr so problematisch.