MVC::Model::Text

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

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

use strict;
use warnings;
use MVC::Model;

our @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 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003