The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package My::Filter;

use strict;
use warnings 'all';
use base 'ASP4::RequestFilter';
use vars __PACKAGE__->VARS;

sub run {
  my ($s, $context) = @_;
  
#  warn "Filtering: $s";
  return $Response->Declined;
}

1;# return true: