package LikeOOModule;
use base 'MyOOModule';

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