|
MVC/Viewer.pm |
package MVC::Viewer; require Exporter; @ISA = qw(Exporter); use Carp; use strict; sub new { my ($package, @options) = @_; my ($self) = bless {}, $package; $self->init(@options); return $self; } sub init { my ($self, $model) = @_; $self->{model} = $model; $model->register($self) if defined $model; } |
MVC::Viewer ist die Basisklasse für alle
Klassen, die ein Modell präsentieren.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |