Select Code to Download

    sub new {
        bless {}, shift;
    }

    package B;
    sub init {
...
        my $self = shift;
        @$self {qw /_baz _qux/} = @_;
    }

    package C;
    use A;
...
        $self -> B::init(@_[0, 1]);
        $self -> C::init(@_[2, 3]);
    }