package My::Base;
use strict;

sub new {
  my $class = shift;
  die "Override must_be_overridden" 
    if ($class->can('must_be_overridden') == \&must_be_overridden);
}

sub must_be_overridden {
  die "Cannae call this method - Override me!";
}