sub make_frobnitzer {
    my( $self )= @_;

    $self->{on_error}= sub {
        $self->error_on_frobnitz( @_ );
    }
}