1 package Xchat::XPI::Events;
8 use constant DEFAULT_DELAY => 1000;
10 our $VERSION = '0.04';
13 my ($cb, @args) = @{$_[0]};
26 $delay = DEFAULT_DELAY;
29 hook_timer $delay, \&_delay_cb, { data => \@_ };
34 my ($cb, $to) = @{$_[1]};
37 emit_print $to, @args;
47 hook_print $from, \&_filter_cb, { data => \@_ };
50 use base qw<Exporter>;
54 'funcs' => [ qw<delay filter> ],
55 'consts' => [ qw<DEFAULT_DELAY> ],
57 our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
58 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];