package MyClass::Component; use strict; use warnings; sub test { my $self = shift; ' -> Component '; } 1;