in reply to Re: Re (tilly) 3: Inheriting object data
in thread Inheriting object data

In your situation I might store the login and password information in global variables in the base class. You can even be clever about it and have the constructor take those globals as default values, but allow someone to override it.

An alternate approach is to use a has-a relationship. In that case Foo::Bar would not inherit from Foo, but would have a property that was an object of type Foo, and would have a login method like this: 

sub login {
  my $self = shift;
  $self->{base_obj}->login(@_);
}

[download]

Replies are listed 'Best First'.
Re: Re (tilly) 5: Inheriting object data
by archon (Monk) on Feb 17, 2001 at 03:47 UTC
    Thanks.. where can I find out more about the has-a relationship? I don't see it in Conway's _Object Oriented Perl_.
[reply]
[reply]
Re: Re (tilly) 5: Inheriting object data
by archon (Monk) on Feb 17, 2001 at 04:57 UTC
    Well, I modified it to use a has-a relationship (I believe) but now I am violating my original desire to only have to pass the hash once, i.e. I will have to pass it for each class I create.

    As far as your first suggestion, I am turned off by the use of global variables that look like they ought to be object properties. (= Do you think this is still a better way than my original design?

[reply]
      How about something like this? It's encapsulated due to lexical variables and block scope, but you have access to it with accessor methods: 
      package Parent;

{
    my ($name, $pass);

    sub new {
        my $class = shift;
        my $self = {};
        if (@_) {
            ($name, $pass) = @_;
        }
        @$self{'name', 'pass'} = ($name, $pass);
        bless($self, $class);
    }
}

      [download]
      You could add another method in there to reset the name and password. You could store references to $name and $pass in the hash, so updating the parent data is reflected in the children.
[reply]
[d/l]

        I think this is the way to go, archon. See the section "Class Data" in the perltoot manpage for an example.

[reply]
        ooh! i think i'll go with this approach. much thanks!
[reply]

In Section Seekers of Perl Wisdom