keine Klassen in perl?! *heul* - #64995 (Allgemeines zu Perl)

ptk

2006-04-16 20:44

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

accessors ist meine bevorzugte Art, Getter/Setter zu erzeugen. Ich glaube, kürzer geht es wirklich nicht:

Code: (dl )

1
2

package Bla;
use accessors qw(foo bar baz);

Fertig. (Gut, den Konstruktor muss man noch selbst schreiben)