MVC::Model::Text

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

MVC/Model/Text.pm
package MVC::Model::Text;

use MVC::Model;
use strict;

@MVC::Model::Text::ISA = qw(MVC::Model);

sub init {
   my ($self, $init) = @_;
   $self->SUPER::init();
   $init = "" unless defined $init;
   $self->{text} = $init;
}

sub get {
   my ($self) = @_;
   return $self->{text};
}

*MVC::Model::Text ist ein (sehr einfaches) Modell für Text (Zeichenfolge, die über beliebig viele Zeilen gehen kann).
 
*Das Durchlaufen der Initialisierungskette für ein neues Objekt durch alle beteiligten Klassen wird durch $self->SUPER::init() sichergestellt. SUPER ist ein Verweis auf die übergeordnete Klasse.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000