Probleme bei Vererbung - #107172 (Allgemeines zu Perl)

tsy

2008-03-18 12:14

User since
2008-03-17
54 Artikel
BenutzerIn
[default_avatar]

Danke für die schnelle Erklärung.
Ich habe es jetzt dementsprechend geändert.
Dies führt mich aber wieder zu dem Problem

Code: (dl )

Can't locate object method "new" via package "Benutzer" (perhaps you forgot to load "Benutzer"?)

das sich ähnlich wie ganz oben anhört.
in meinem Skript steht zunächst nur

Code (perl): (dl )

1
2
3

use UserDomain::Benutzer;

$someone = new Benutzer ([parmeter]);

und im Benutzer

Code (perl): (dl )

package UserDomain::Benutzer;
use base 'UserDomain::Person';

use NET::ldap;
use strict;

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

Ich schätze, ich bin ein schwieriger Fall...

Gruß, tsy