sub Type1::generic_method { $_[0]->method1 }
sub Type2::generic_method { $_[0]->method2 }
sub TypeX::generic_method { $_[0]->method3 }
@Type1::ISA=@Type2::ISA=qw(TypeX);

sub with_the_if {
  ...
  return $foo->generic_method
}