|
MVC/Model.pm |
package MVC::Model; require Exporter; use strict; @MVC::Model::ISA = qw(Exporter); sub new { my ($package, @options) = @_; my ($self) = bless {}, $package; $self->init(@options); return $self; } sub init { my ($self) = @_; $self->{viewers} = {}; } |
MVC::Model dient als Basisabstraktion für alle
Modelle.
| |
Typischerweise werden die Initialisierungsarbeiten
außerhalb des Konstruktors von einer speziellen
Methode durchgeführt. In diesem Fall von init.
Von MVC::Model abgeleitete Klassen dürfen zwar
init überdefinieren -- müssen jedoch sicherstellen,
daß auch init für die Basisklassen aufgerufen wird.
| |
In $self->{viewers} verwaltet MVC::Model die
Menge der registrierten Viewer.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |