}
sub delay {
- my $delay = shift;
+ my ($delay, @args) = @_;
if (defined $delay) {
$delay = int $delay;
}
called_from_script {
- hook_timer $delay, \&_delay_cb, { data => \@_ }
+ hook_timer $delay, \&_delay_cb, { data => \@args }
}
}
}
sub filter {
- my $from = shift;
+ my ($from, $cb, $to) = @_;
called_from_script {
- hook_print $from, \&_filter_cb, { data => \@_ }
+ hook_print $from, \&_filter_cb, { data => [ $cb, $to ] }
}
}