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