$obj->on_error( sub{ my $err = shift; ... } );