- my $d = shift;
- $d = (defined $d) ? int $d : DEFAULT_DELAY;
- return hook_timer $d, \&_delay_cb, { data => \@_ };
+ my $delay = $_[0];
+
+ if (defined $delay) {
+ $delay = int $delay;
+ } else {
+ $delay = DEFAULT_DELAY;
+ }
+
+ hook_timer $delay, \&_delay_cb, { data => \@_ };