package My::Class::Reversed;

use base qw( My::Class );

sub foo { print reverse "Foo" }

1;