cp-inheritance.pm

package AA;
sub func { print "AA\n" }

package BB;
use parent 'AA';
sub func { print "BB\n"; shift->SUPER::func(@_); }

package CC;
use parent 'AA'
sub func { print "CC\n"; shift->SUPER::func(@_); }

package DD;
use parent qw/BB CC/;
sub func { print "DD\n"; shift->SUPER::func(@_); }

#
# В каких классах и в каком порядке будут вызваны функции func, если вызвать DD->func ?
#
#     DD, BB, AA
#
# По какому принципу мы должны построить наследование, если нам необходимо,
# чтобы при вызове DD->func, были вызваны функции по всех этих классах, и
# не меняя иерархию наследования?
#
#     См. mro. И вместо 
#
#     shift->SUPER::func(@_)
#
#     вызывать
#
#     shift->next::method(@_);