Re: Detecting Overridden Methods

[sfink]

in reply to Detecting Overridden Methods

If you know the set of methods you'll need to query, you could check before any of your methods are installed.

package MyPackage;
use base "Whatever";
our $can_foo;
BEGIN { $can_foo = 1 if MyPackage->can("foo"); }
sub foo { 'Whee!' }
sub check { return $can_foo; }

Update: But in direct answer to your question, this (surprisingly) seems to work:

MyPackage->can("SUPER::foo")

[ikegami]

our $can_foo;
is not as good as
my $can_foo;
There's no need for a package variable here.

MyPackage->can("foo");
is not as good as
__PACKAGE__->can("foo");
Less redundancy means smaller chance to make an error.

I had written this solution before coming up with the one I posted. I couldn't see any advantages to it, so I only included it in my post in comment tags.