1package MyClass::F;
2
3use strict;
4use warnings;
5use base qw/ MyClass::C MyClass::Component /;
6
7sub test {
8    my $self = shift;
9    ' -> F ' . $self->NEXT('test');
10}
11
121;
13