Select Code to Download

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

package Foo::Bar;
# ...
...

    # ...
}