# In Encoder/B.pm
package Encoder::B;

use base 'Encoder';

sub other_stuff {
   my ($text) = @_;

   my $new_text = $text;
   $new_text =~ s/a/c/g;
}