in reply to Re^6: perl inheritance
in thread perl inheritance

Yes, reftype() returns the type of the variable. I think what was meant was blessed() which returns the name of the package that it is blessed into:
my $class = blessed $self;