Select Code to Download

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

...
  $x->FAKE::method;  # calls SuperClass::method
}
$x->method;  # calls SubClass::method

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

...
  $x->method;  # calls SuperClass::method
}
$x->method;  # calls SubClass::method

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

...
  };
}
$x->method;  # calls SubClass::method

local &foo;