From 3d937997d2563f00b05d842180c47a57f0d59b29 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 25 Feb 2012 01:55:10 -0600 Subject: better calling convention for the callbacks --- lib/Term/Filter.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Term/Filter.pm') 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 { -- cgit v1.2.3-54-g00ecf