eine Frage zu objektorientertem Perl - #75895 (Allgemeines zu Perl)

ASDS

2007-04-17 23:57

User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]

okay umgelegt auf meins würde meine Klasse Neu so lauten:

Code: (dl )

sub neu {
   my $class = shift;
   my $ref_wurzel = newtree(\@liste);
   my $self = { val => $ref_wurzel, l => \@liste};
   bless $self, ref($class) || $class;
   return $self;
}

ODER?
das is die variante die du geschrieben hast

Code: (dl )

sub new {
   my $class = shift;
   my $val = shift;
   my $self = { val => $val, l => undef, r => undef };
   bless $self, ref($class) || $class;
   return $self;
}