![[Vorheriges Kapitel]](pprev.gif)
![[Vorherige Seite]](prev.gif)
![[Inhaltsverzeichnis]](up.gif)
![[Nächste Seite]](next.gif)
|
|
|
package MVC::Viewer;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
use Carp;
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 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |