package My::Class;

sub foo { print "Foo" }

1;

##</code><code>##

package My::Class::Reversed;

use base qw( My::Class );

sub foo { print reverse "Foo" }

1;