diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-02-25 01:55:10 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-02-25 01:55:10 -0600 |
commit | 3d937997d2563f00b05d842180c47a57f0d59b29 (patch) | |
tree | 30b86c394869e8f6b52298798996ba47a1647b8b /lib | |
parent | 3006cbd5e19edfb2397e71b34e3995d0dc5f2df3 (diff) | |
download | term-filter-3d937997d2563f00b05d842180c47a57f0d59b29.tar.gz term-filter-3d937997d2563f00b05d842180c47a57f0d59b29.zip |
better calling convention for the callbacks
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Term/Filter.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Term/Filter.pm b/lib/Term/Filter.pm index 519855d..b879fb3 100644 --- a/lib/Term/Filter.pm +++ b/lib/Term/Filter.pm @@ -14,10 +14,10 @@ has callbacks => ( sub _callback { my $self = shift; - my ($event) = @_; + my ($event, @args) = @_; my $callback = $self->callbacks->{$event}; return unless $callback; - return $callback->(@_); + return $self->$callback(@args); } sub _has_callback { |