package Foo; use UtilityClass; sub some_method { my $self = shift; $self->UtilityClass::some_method(@_); } #### package Foo; use UtilityClass; sub helper_class { 'UtilityClass' }; sub some_method { goto &{ $_[0]->helper_class->can('some_method') }; }