Re: checking a method is not subclassed (in new)

[tye]

sub Baz::new {
    ...
    croak ...
        if  $class->can("foo") != \&Baz::foo;
    ...
}

?

I doubt I would encourage such tactics.