my $x = SubClass->new;  # inherits from SuperClass

$x->method;  # calls SubClass::method
{
  local @FAKE::ISA = @{ ref($x) . "::ISA" };
  $x->FAKE::method;  # calls SuperClass::method
}
$x->method;  # calls SubClass::method