package AbstractFoo;
    ...
    sub new {
        my $package = shift;
        die "Don't subclass AbstractFoo directly!"
           if $package eq "AbstractFoo";
        bless { @_ }, $package;
    }