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";
    }
}