[Dresden-pm] Objektorientierung unter Perl

[Renee Bäcker]

Renee Bäcker schrieb:
> in new von "Auto" geht es so:
> 
> sub new {
>   my ($class, $data) = @_;
>   $self = $class->SUPER::new();
>   return $self;
> }
> 
> - Renée

noch ne Anmerkung: Ihr solltet strict (siehe auch
http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict ) verwenden.

Außerdem habt ihr in beiden Konstruktoren ein $data, was ihr nie verwendet.

Dann habt ihr einen getter/setter für zustand in "Motor", benutzt ihn im
Konstruktor aber nicht. In "new" in "Motor" sollte es also anstatt

$self->{zustand} = 'aus';

einfach

$self->zustand( 'aus' );

heißen!


-- 

Perl-Magazin: http://perl-magazin.de
Perl-Nachrichte: http://perl-nachrichten.de