*isa=*UNIVERSAL::isa;

sub with_the_if {
  ...
  if (isa($foo,'Type1')) { return $foo->method1 }
  elsif (isa($foo,'Type2')) { return $foo->method2 }
  else { return $foo->method3 }
}

##</code><code>##

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
}