http://qs321.pair.com?node_id=598389


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")