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;
45 hook_print $_[0], \&_filter_cb, { data => \@_ };
48 use base qw<Exporter>;
52 'funcs' => [ qw<delay filter> ],
53 'consts' => [ qw<DEFAULT_DELAY> ],
55 our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
56 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];