Perhaps you want something like what I've posted below? It keeps a copy of the options passed to the parent constructor and passes them, along with any new options, to the child constructor. I'm not sure if it's something like this you are looking for, or if I am way off base.

update: Added an iterator to the main script to show results of child creation. In a real-world example, you'd probably want methods to access the children, rather than digging around in the package internals as I have done below. 

package Parent;

use strict;
use Child;

sub new {
    my ($class, %opts) = @_;

    my $self = bless( {
        _opts     => \%opts, # save parent options
        _children => []      # an array of children
    }, $class);

    return $self;
}

sub new_child {
    my ($self, %opts) = @_;

    my $child = Child->new(
        %{ $self->{_opts} }, # the saved parent options
        %opts                # the new child options
    );

    # save this child inside the parent object
    push @{ $self->{_children} }, $child;

    return $child;
}

1;

package Child;

use strict;

sub new {
    my ($class, %opts) = @_;

    my $self = bless( { _opts => \%opts }, $class );

    return $self;
}

1;

package main;

use strict;
use Parent;

# Create the parent object. We will create child objects
# with it and save those child objects within the parent.
my $p = Parent->new( foo => 1, bar => 2 );

# Create the first child. Pass an extra option in.
my $c1 = $p->new_child( baz => 3 );

# Create a second child. Give it different options.
my $c2 = $p->new_child( qux => 4, yeah => 5 );

# Iterate through children and see which options they got.
for my $child ( @{ $p->{_children} } ) {
    while ( my ($k, $v) = each %{ $child->{_opts} } ) {
        print "$k ==> $v\n";
    }
    print "\n";
}

[download]

In reply to Re: OO: sharing data across inheritance by saskaqueer
in thread OO: sharing data across inheritance by skillet-thief

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.