Quite a few years ago when I was still programming in C++, I found multiple inheritance of virtual functions a very tricky thing to handle.

Say, if class C is derived from class A and class B, and provides an overload for virtual function, say, X, that exists in both A and B, then you have to explicitly say which parent you are going to inherit X from, otherwise it will result in compilation error.

I see this particular problem similar to what I described above. Multiple inheritance of the MODIFY_CODE_ATTRIBUTES function. What is not declared explicitly in package Three is the member function MODIFY_CODE_ATTRIBUTES that is inherited from its parent, either A or B. Because Perl could not resolve the multiple inheritance, it simply picks the first package, One, as the parent class and ignores B.

When the Perl compiler checks the attributes, it first invokes the MODIFY_CODE_ATTRIBUTES function declared in package Three, which is inherited from package One. And when the function returns a non-empty list, Perl assumes that the attributes could not be handled by the parent package as well as itself, and therefore raise the compilation error.

I believe a remedy is to provide a MODIFY_CODE_ATTRIBUTES function in package Three that handles multiple inheritence explicitly.

use strict;
use warnings;

package One;

sub MODIFY_CODE_ATTRIBUTES{
    my ($pkg, $ref, @attr) = @_;
    print "Package A handler: @attr \n";
    return @attr;
}

package Two;

sub MODIFY_CODE_ATTRIBUTES{
    my ($pkg, $ref, @attr) = @_;
    print "Package B handler: @attr\n";
    return ();
}

package Three;
use base qw[ One Two ];

sub MODIFY_CODE_ATTRIBUTES{
    my ($pkg, $ref, @attr) = @_;
    @attr = $_[0]->One::MODIFY_CODE_ATTRIBUTES($ref, @attr);
    if (@attr) {
        @attr = $_[0]->Two::MODIFY_CODE_ATTRIBUTES($ref, @attr);
    }
    print "Package C handler: @attr \n";
    return @attr;
}

sub foo : Eins Zwei Drei {
}

__END__
$ perl attr.pl
Package A handler: Eins Zwei Drei
Package B handler: Eins Zwei Drei
Package C handler:

[download]

In reply to Re: Package-specific Attribute Handling and Multiple Inheritence by Roger
in thread Package-specific Attribute Handling and Multiple Inheritence by Thilosophy

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.