sub submit_request { my ($code_ref, ...) = @_; my $callback_id = "$code_ref"; $registered{ $callback_id } ||= [ 0, $code_ref ]; ++$registered{ $callback_id }[0]; _submit_request($callback_id, @_); }