sA
Size: a a a
sA
VZ
a
package MyMixin;Но контекст этого обсуждения вовсе не в наследование vs что-то ещё. А реализация сложной бизнес-логики для множественных похожих, но разных сущностей (в данном случае, насколько я понял, товаров).
sub foo {
my $self = shift;
return $self->bar * 2;
}
package MyClass;
use parent 'Foo', 'Bar', 'MyMixin';
sub bar { 42 };
AP
AP
AT
SZ
K
DF
AT
DF
DF
AT
DF
SZ
SZ
DF
DF
SZ