I am confused as to what you want also.

I do not recommend the following. It seems wrong to embed knowledge of the subclass in a superclass. Even in languages that let you put a superclass over a class without its cooperation.

But perhaps ref is what is needed.

package Super;

sub method {
    # handle dual nature methods
    my $class = ref( $_[0]) || $_[0];
    print "In package: ", __PACKAGE__, 
          " called from $class\n";
}

package Sub;

use vars qw( @ISA);
@ISA= qw( Super);

sub new { bless {}; }

package main;

my $sub = &Sub::new();

$sub->method();
Sub->method();
[download]