Restyle Xchat::XPI::Events

[perl/scripts/xchat.git] / Xchat / XPI / Events.pm

diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm
index f387f8ae7e6bc6915caeeda9cf4ea70b1180cc44..3bb797ffd1930287f46b0c9b696449dc2ce9984b 100644 (file)
--- 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<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- 'funcs'  => [ qw<delay filter> ],
- 'consts' => [ qw<DEFAULT_DELAY> ]
+ 'funcs'  => [ qw<delay filter>  ],
+ 'consts' => [ qw<DEFAULT_DELAY> ],
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];