sub foo {
    my $self = shift;

    die "Whoever wrote '", ref($self), "' is a dork. S/He didn't override foo()!";
}