package AbstractFoo;
    ...
    sub new {
        my $package = shift;
        die __PACKAGE __ . " is an abstract class"
            if $package eq __PACKAGE__;
        bless { @_ }, $package;
    }