Это потому, что вы не вызываете следующий фильтр в бригаде.
package TestFilter;
use base qw(Apache2::Filter);
use Apache2::Const qw(OK);
use APR::Const qw(SUCCESS);
sub handler {
my ($f, $bb, $mode, $block, $readbytes) = @_;
my $rv = $f->next->get_brigade($bb, $mode, $block, $readbytes);
return $rv unless $rv == APR::Const::SUCCESS;
# do you filtering stuff
return OK;
}
1;