use Xchat qw<:all>;
+use lib get_info 'xchatdir';
+use Xchat::XPI::Utils qw<called_from_script>;
+
use constant DEFAULT_DELAY => 1000;
our $VERSION = '0.04';
}
sub delay {
- my $delay = shift;
+ my ($delay, @args) = @_;
if (defined $delay) {
$delay = int $delay;
$delay = DEFAULT_DELAY;
}
- hook_timer $delay, \&_delay_cb, { data => \@_ };
+ called_from_script {
+ hook_timer $delay, \&_delay_cb, { data => \@args }
+ }
}
sub _filter_cb {
}
sub filter {
- my $from = shift;
+ my ($from, $cb, $to) = @_;
- hook_print $from, \&_filter_cb, { data => \@_ };
+ called_from_script {
+ hook_print $from, \&_filter_cb, { data => [ $cb, $to ] }
+ }
}
use base qw<Exporter>;