Thread Probleme bei Vererbung (17 answers)
Opened by tsy at 2008-03-17 18:11

tsy
 2008-03-18 15:07
#107197 #107197
User since
2008-03-17
54 Artikel
BenutzerIn
[default_avatar]
Hallo, renee und Struppi, ich bin langsam echt am Verzeifeln. Ich habe versucht umzusetzen, was Ihr geraten habt aber habe noch immer keine Lösung.
Ich versuche deswegen noch mal alles so gut es geht zusammenzufassen, auch vielleicht unwichtige Informationen:
Ich nutze EasyEclipse for LAMP mit Epic als Entwicklingsumgebung.
in meinem workspace habe ich das Projekt-Verzeichnis angelegt, in dem sich die Skripte befinden (momentan nur zum testen, ich benutze normalerweise use strict;)
Code (perl): (dl )
1
2
3
4
5

use warnings;
use UserDomain::Benutzer;

$someone = UserDomain::Benutzer->new("ez", "eins", "zwei", "0", "de", "0");
print $someone;

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package UserDomain::Person;

use strict;

sub new {
        my $class = shift;
        my $self = bless {} , ref $class || $class;
        my ($id, $nachname, $vorname, $telnr, $sprache, $aktiv) = @_;

        $self->{'id'} = $id;
        $self->{'nachname'} = $nachname;
        $self->{'vorname'} = $vorname;
        $self->{'telnr'} = $telnr;
        $self->{'sprache'} = $sprache;
        $self->{'aktiv'} = $aktiv;

        # my $self = bless {}, ref $proto || $proto;
        #bless $self, ref $class || $class; # wegen Vererbung
        return $self;
}

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package UserDomain::Benutzer;

our @ISA = qw(UserDomain::Person);
use UserDomain::Person;

#use NET::ldap;
use strict;

sub new {
        my $class = shift;
        my ($id, $nachname, $vorname, $telnr, $sprache, $aktiv) = @_;
        $class->SUPER::new($id, $nachname, $vorname, $telnr, $sprache, $aktiv);
        $class->{'letzterLogin'} = "";
        $class->{'berechtigung'} = 0;
}


Der Fehler, den ich bekomme ist
Code: (dl )
Can't use string ("UserDomain::Benutzer") as a HASH ref while "strict refs" in use at [...]UserDomain/Benutzer.pm line 13.


Sorry, wenn ich es immer noch nicht schnalle...

Viele Grüße,

tsy

View full thread Probleme bei Vererbung