sub selfcheck {
    my $self = shift;
    die "..." if ref $self ne __PACKAGE__;
    # lineage check...
}