Re: oo design q: SUPER::

one way to do it is to use named parameters

  package Dragon;

  sub _init
  {
     my $self = shift;
     my %args = @_;
     foreach my $key qw(NAME AGE COLOR) {
        $self->{$key} = $args{$key};
     }
     $self->awaken();
  }

  package Trogdor;
  
  sub new
  {
     my $class = shift;
     $class->new(@_,
        NAME  => "Trogdor",
        AGE   => "one year old";
        COLOR => "green");
  }
[download]

If the values are overridable, put @_ at the end of the parameter list.

Comment on Re: oo design q: SUPER::_init Download Code

Replies are listed 'Best First'.
Re^2: oo design q: SUPER::_init by lestrrat (Deacon) on Feb 21, 2006 at 00:14 UTC
No, you miss my point. If you use named parameters, you can use the code that I posted.	[reply]
Re^3: oo design q: SUPER::_init by alienhuman (Pilgrim) on Feb 21, 2006 at 00:49 UTC
Shoot. You're right. I misunderstood your example. And yours has the advantage of making it harder for the user to screw up the assignment by passing the arguments out of order (that is to say, there is no order if they're passed as named arguments). ---------- `Using perl 5.8.1-RC3 unless otherwise noted. Apache/1.3.33 (Darwin) unless otherwise noted. Mac OS X 10.3.9 unless otherwise noted.` [download]	[reply] [d/l]
Re^4: oo design q: SUPER::_init by alienhuman (Pilgrim) on Feb 21, 2006 at 17:09 UTC
For completeness sake (and because I might want to refer to this in the future), here's my code with named params. Thanks for your help and patience. Read more... (2 kB) ---------- `Using perl 5.8.1-RC3 unless otherwise noted. Apache/1.3.33 (Darwin) unless otherwise noted. Mac OS X 10.3.9 unless otherwise noted.` [download]	[reply] [d/l] [select]
Re^2: oo design q: SUPER::_init by alienhuman (Pilgrim) on Feb 20, 2006 at 23:26 UTC
Thanks to both of you for your help. Incidentally, lestrrat, there is a minor error in your (elegant) solution: `my %args = @_;` assigns to the hash keys, so the foreach loop `$self->{key} = $args{$key}` actually assigns a null value to `$self->{key}`. I mention this just in case someone else grabs this code in the future and spends a few minutes scratching their head, like I did. Luckily, the fix is even simpler: `package Dragon sub _init { my $self = shift; foreach my $key qw(NAME AGE COLOR) { $self->{$key} = shift; } }` [download] In the unlikely event that anyone is interested, my complete code follows: Read more... (2 kB) AH ---------- `Using perl 5.8.1-RC3 unless otherwise noted. Apache/1.3.33 (Darwin) unless otherwise noted. Mac OS X 10.3.9 unless otherwise noted.` [download]	[reply] [d/l] [select]