From: Vincent Pit Date: Sat, 10 Mar 2012 11:42:17 +0000 (+0100) Subject: Restyle Xchat::XPI::Events X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=6233c622e5c4cceefc8ed019b5a9355a690f2050;p=perl%2Fscripts%2Fxchat.git Restyle Xchat::XPI::Events --- diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm index f387f8a..3bb797f 100644 --- a/Xchat/XPI/Events.pm +++ b/Xchat/XPI/Events.pm @@ -8,27 +8,34 @@ use Xchat qw<:all>; use lib get_info 'xchatdir'; use Xchat::XPI; -use constant { - DEFAULT_DELAY => 1000 -}; +use constant DEFAULT_DELAY => 1000; our $VERSION = '0.04'; sub _delay_cb { my ($cb, @args) = @{$_[0]}; + $cb->(@args); + return REMOVE; -}; +} sub delay { - my $d = shift; - $d = (defined $d) ? int $d : DEFAULT_DELAY; - return hook_timer $d, \&_delay_cb, { data => \@_ }; + my $delay = $_[0]; + + if (defined $delay) { + $delay = int $delay; + } else { + $delay = DEFAULT_DELAY; + } + + hook_timer $delay, \&_delay_cb, { data => \@_ }; } sub _filter_cb { my @args = @{$_[0]}; my ($cb, $to) = @{$_[1]}; + if ($cb->(@args)) { emit_print $to, @args; return EAT_ALL; @@ -38,16 +45,15 @@ sub _filter_cb { } sub filter { - my $from = shift; - return hook_print $from, \&_filter_cb, { data => \@_ }; + hook_print $_[0], \&_filter_cb, { data => \@_ }; } use base qw; our @EXPORT = (); our %EXPORT_TAGS = ( - 'funcs' => [ qw ], - 'consts' => [ qw ] + 'funcs' => [ qw ], + 'consts' => [ qw ], ); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];