Thread Abstrakte Klassen und Interfaces in Perl (21 answers)
Opened by pug at 2006-09-18 15:28

Gast Gast
 2006-09-19 13:38
#69986 #69986
[quote=nepos,18.09.2006, 16:40]Sowie ich das Class::Trait sehe, ist das eher eine Nachbildung der Properties, die bei Windows-Programmierung oft genutzt werden. Sieht mir nicht so recht nach Interfaces aus.[/quote]
Trait sieht schonmal ganz gut aus, aber leider funktioniert das angegebene Beipiel nicht. Und das ist nur für einen Methodenalias, nicht mal für REQUIRE. Das Require-Beispiel mach überhaupt nichts weiter...

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package Loam;
use Class::Trait (
'TPrintable' => {
alias => { "strVal" => "stringValue" },
exclude => "stringValue",
}
);

sub stringValue { print 'done' }
1;

package main;
use strict;
use Loam();
1;


Hier kommt nur:

Attempt to alias method (strVal) that is not in trait (TPrintable) at Loam.pm line 3

Hat jemand ein einfaches, laufendes Beispiel für:

-Die Klasse "Loam" definiert, dass es die Methode "breath" geben muss, implementiert aber nix.

-Die Klasse "Human" erbt von Loam, enthält sonst aber nix.

-Die Klasse Human wird via "use" einegbunden und nirgends verwendet. Via Compiletime soll im günstigsten Fall gemeckert werden, dass die Methode "breath" definiert werden muss.

Irgendwer eine Idee?

View full thread Abstrakte Klassen und Interfaces in Perl