I'm poking around with inheritance, and need to call the grandparent's method, skipping the parent's method. What's the simplest way to do that?

I'd prefer something like

$x->SUPER::SUPER::method;
[download]

But SUPER is Perl magic, and doesn't work that way.

In my current case, it is OK to redefine/undefine the parent's method, though I haven't figured out how to do that without knowing the parent's name. (Perhaps I've overlooked something.) I'd like to know how to skip the parent's method temporarily too.

I'm also wondering if can might be used in a cleaner approach.

Update:

I prefer not to use modules outside the core, though I can do so if necessary. (Lots of machines to update, etc.)

In the meantime, I'm examining a solution like this, which looks a bit like one of tobyink's suggestion.

# Within the child, get the parent’s class name from @ISA
my ($parent) = @ISA;
print "\$parent = <$parent>\n";

# Now get the grandparent’s class name from the parent’s @ISA
my $grandparent;
{
    no strict 'refs';
    ($grandparent) = @{"${parent}::ISA"};
}

# Get a reference to the grandparent’s method “me”
my $y = $grandparent->can('me');
$y->($object);
[download]