X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Xchat%2FXPI%2FEvents.pm;h=52fb57c753e657f4691cda2e0a72c731a7932ab5;hb=b99caf8b93311fb2f0bec1fa724008fcd7e551d6;hp=bb4eac1efe53d9ac6402ef7ab2738cc0b5a5ea11;hpb=b9c3e00cbf52ff5ddb0d79fd66a6877f6feb508d;p=perl%2Fscripts%2Fxchat.git

diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm
index bb4eac1..52fb57c 100644
--- a/Xchat/XPI/Events.pm
+++ b/Xchat/XPI/Events.pm
@@ -3,64 +3,56 @@ package Xchat::XPI::Events;
 use strict;
 use warnings;
 
-use Xchat qw/:all/;
+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';
 
-our $VERSION = '0.03';
+sub _delay_cb {
+ my ($cb, @args) = @{$_[0]};
 
-my $ph;
+ $cb->(@args);
+
+ return REMOVE;
+}
 
 sub delay {
- my $d = shift;
- $d = (defined $d) ? int $d : DEFAULT_DELAY;
- return hook_timer $d, sub {
-  my ($cb, $data) = @{$_[0]};
-  &$cb($data);
-  return REMOVE;
- }, { data => \@_ };
+ my $delay = $_[0];
+
+ if (defined $delay) {
+  $delay = int $delay;
+ } else {
+  $delay = DEFAULT_DELAY;
+ }
+
+ hook_timer $delay, \&_delay_cb, { data => \@_ };
 }
 
-my %reorder;
+sub _filter_cb {
+ my @args      = @{$_[0]};
+ my ($cb, $to) = @{$_[1]};
 
-sub filter {
- return unless @_ == 3;
- not defined and return for @_;
- my ($cb, $to) = @_[1, 2];
- return hook_print $_[0], sub {
-  my @args = @{$_[0]};
-  if ($cb->(@args)) {
-   $reorder{$to}->(@args) if exists $reorder{$to};
-   emit_print $to, @args;
-   return EAT_ALL;
-  } else {
-   return EAT_NONE;
-  }
+ if ($cb->(@args)) {
+  emit_print $to, @args;
+  return EAT_ALL;
+ } else {
+  return EAT_NONE;
  }
 }
 
-use base qw/Exporter/;
+sub filter {
+ 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 ];
 
-$ph = Xchat::XPI->new(
- name   => 'Extended Xchat Perl Interface :: Events',
- tag    => 'XPI::Events',
- desc   => 'More events handlers',
- author => 'Vincent Pit (VPIT)',
- email  => 'perl@profvince.com',
- url    => 'http://www.profvince.com',
-);
-
 1;