package MyClass::Component::B;
use strict;
use warnings;
use base qw/ MyClass::D MyClass::Component /;
sub test {
my $self = shift;
' -> B ' . $self->NEXT('test');
}
1;
package MyClass::Component::B;
use strict;
use warnings;
use base qw/ MyClass::D MyClass::Component /;
sub test {
my $self = shift;
' -> B ' . $self->NEXT('test');
}
1;