sub on_response {
    my $callback_id = shift;
    my $code_ref = $registered{ $callback_id }[1]
        or croak(...);
    --$registered{ $callback_id }[0]
        or delete( $registered{ $callback_id } );
    $code_ref->(@_);
}