}
sub delay {
- my $delay = $_[0];
+ my $delay = shift;
if (defined $delay) {
$delay = int $delay;
}
sub filter {
- hook_print $_[0], \&_filter_cb, { data => \@_ };
+ my $from = shift;
+
+ hook_print $from, \&_filter_cb, { data => \@_ };
}
use base qw<Exporter>;