in reply to Re: Access package variables of subclass from base class
in thread Access package variables of subclass from base class

sub GetX {
    my ($self) = @_;
    my $subc = ref($self) ;
    if ( $subc ne __PACKAGE__ ) {
        croak "do not call $subc\::SUPER->GetX";
    }
    else {
        croak "GetX must be implemented by subclass";
    }
}

[download]

In Section Seekers of Perl Wisdom