MVC::Model::Text II

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]

MVC/Model/Text.pm
sub set {
   my ($self, $text) = @_;
   $text = "" unless defined $text;
   if ($text ne $self->{text}) {
      $self->{text} = $text;
      $self->update();
   }
}

sub append {
   my ($self, $text) = @_;
   if (defined ($text) && $text ne "") {
      $self->{text} .= $text;
      $self->update();
   }
}

1;

*Mit set oder append ist es möglich, den aktuellen Zustand des Text-Modells sichtbar zu verändern. Entsprechend ist es notwendig, die Methode update jeweils anschließend aufzurufen, um Änderungen an die Viewer weiterzugeben.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003