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

?

I doubt I would encourage such tactics.