MVC::Model

MVC/Model.pm

package MVC::Model; use strict; use warnings; require Exporter; our $VERSION = "0.02"; our @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.

	`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.