{
   package Child;

   use Base   qw( );
   use Encode qw( encode );

   our @ISA = 'Base';

   sub another_method {
      ...
      my $x = encode('UTF-16le', $y);
      ...
   }
}

{
   package Base;

   sub encode {
      ...
   }

   sub some_method {
      ...
      my $c = $self->encode($p);  # Can call Encode::encode($self,$p)!
      ...
   }
}

Child->new()->some_method();