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';
$delay = DEFAULT_DELAY;
}
- hook_timer $delay, \&_delay_cb, { data => \@_ };
+ called_from_script {
+ hook_timer $delay, \&_delay_cb, { data => \@_ }
+ }
}
sub _filter_cb {
sub filter {
my $from = shift;
- hook_print $from, \&_filter_cb, { data => \@_ };
+ called_from_script {
+ hook_print $from, \&_filter_cb, { data => \@_ }
+ }
}
use base qw<Exporter>;