package LikeOOModule;
use base 'MyOOModule';

sub foo {
  my $self = shift;
  if ($self->mode == OO_THIS) { ... }
  elsif ($self->mode == OO_THAT) { ... }
}